diff options
Diffstat (limited to 'tests/Tests/Helpers.hs')
-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) |