diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-19 10:41:12 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-19 10:41:12 -0800 |
| commit | 2fbe611a964e8fd62df5ed7cc58e5aa2db1d35d4 (patch) | |
| tree | 046b1db9abecc51ffcff181d2fc2dfab1d98bd60 | |
| parent | 84bfe361b01cb73e75b68eb4a4e9354d49df2262 (diff) | |
Get rid of compiler warnings in Tests.Helpers.
| -rw-r--r-- | tests/Tests/Helpers.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/Tests/Helpers.hs b/tests/Tests/Helpers.hs index 99263cc36..d6cad345c 100644 --- a/tests/Tests/Helpers.hs +++ b/tests/Tests/Helpers.hs @@ -28,7 +28,9 @@ import Data.Algorithm.Diff lit :: QuasiQuoter lit = QuasiQuoter { quoteExp = (\a -> let b = rnl a in [|b|]) . filter (/= '\r') - , quotePat = error "Cannot use lit as a pattern" + , quotePat = error "Unimplemented" + , quoteType = error "Unimplemented" + , quoteDec = error "Unimplemented" } where rnl ('\n':xs) = xs rnl xs = xs @@ -39,7 +41,8 @@ file = quoteFile lit -- adapted from TH 2.5 code quoteFile :: QuasiQuoter -> QuasiQuoter quoteFile (QuasiQuoter { quoteExp = qe, quotePat = qp }) = - QuasiQuoter { quoteExp = get qe, quotePat = get qp } + QuasiQuoter { quoteExp = get qe, quotePat = get qp, + quoteType = error "Unimplemented", quoteDec = error "Unimplemented" } where get :: (String -> Q a) -> String -> Q a get old_quoter file_name = do { file_cts <- runIO (readFile file_name) |