@@ -28,7 +28,9 @@ import Data.Algorithm.Diff
28lit :: QuasiQuoter
28lit :: QuasiQuoter
29lit = QuasiQuoter {
29lit = QuasiQuoter {
30 quoteExp = (\a -> let b = rnl a in [|b|]) . filter (/= '\r')
30 quoteExp = (\a -> let b = rnl a in [|b|]) . filter (/= '\r')
31− , quotePat = error "Cannot use lit as a pattern"
31+ , quotePat = error "Unimplemented"
32+ , quoteType = error "Unimplemented"
33+ , quoteDec = error "Unimplemented"
33 where rnl ('\n':xs) = xs
35 where rnl ('\n':xs) = xs
34 rnl xs = xs
36 rnl xs = xs
@@ -39,7 +41,8 @@ file = quoteFile lit
39-- adapted from TH 2.5 code
41-- adapted from TH 2.5 code
40quoteFile :: QuasiQuoter -> QuasiQuoter
42quoteFile :: QuasiQuoter -> QuasiQuoter
41quoteFile (QuasiQuoter { quoteExp = qe, quotePat = qp }) =
43quoteFile (QuasiQuoter { quoteExp = qe, quotePat = qp }) =
42− QuasiQuoter { quoteExp = get qe, quotePat = get qp }
44+ QuasiQuoter { quoteExp = get qe, quotePat = get qp,
45+ quoteType = error "Unimplemented", quoteDec = error "Unimplemented" }
44 get :: (String -> Q a) -> String -> Q a
47 get :: (String -> Q a) -> String -> Q a
45 get old_quoter file_name = do { file_cts <- runIO (readFile file_name)
48 get old_quoter file_name = do { file_cts <- runIO (readFile file_name)