aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-01-19 10:41:12 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-01-19 10:41:12 -0800
commit2fbe611a964e8fd62df5ed7cc58e5aa2db1d35d4 (patch)
tree046b1db9abecc51ffcff181d2fc2dfab1d98bd60
parent84bfe361b01cb73e75b68eb4a4e9354d49df2262 (diff)
downloadpandoc-2fbe611a964e8fd62df5ed7cc58e5aa2db1d35d4.tar.gz
Get rid of compiler warnings in Tests.Helpers.
-rw-r--r--tests/Tests/Helpers.hs7
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)