@@ -28,7 +28,9 @@ import Data.Algorithm.Diff
2828lit :: QuasiQuoter
2929lit = QuasiQuoter {
3030 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"
3234 }
3335 where rnl ('\n':xs) = xs
3436 rnl xs = xs
@@ -39,7 +41,8 @@ file = quoteFile lit
3941-- adapted from TH 2.5 code
4042quoteFile :: QuasiQuoter -> QuasiQuoter
4143quoteFile (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" }
4346 where
4447 get :: (String -> Q a) -> String -> Q a
4548 get old_quoter file_name = do { file_cts <- runIO (readFile file_name)