From 2fbe611a964e8fd62df5ed7cc58e5aa2db1d35d4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 19 Jan 2013 10:41:12 -0800
Subject: Get rid of compiler warnings in Tests.Helpers.

---
 tests/Tests/Helpers.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'tests')

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)
-- 
cgit v1.2.3