From d0a2ff2625c9e95ab5accd4b1f1a4075d5d0d9b3 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Wed, 1 Dec 2010 22:04:57 +0000
Subject: Make tests compile with ghc 7.0.1

---
 tests/golden-tests/tests/GADTRecords.hs | 2 +-
 tests/golden-tests/tests/QuasiExpr.hs   | 8 +++-----
 tests/golden-tests/tests/QuasiQuote.hs  | 2 +-
 3 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/tests/golden-tests/tests/GADTRecords.hs b/tests/golden-tests/tests/GADTRecords.hs
index a82cb381..c77810ad 100644
--- a/tests/golden-tests/tests/GADTRecords.hs
+++ b/tests/golden-tests/tests/GADTRecords.hs
@@ -1,4 +1,4 @@
-
+{-# LANGUAGE GADTs #-}
 module GADTRecords (H1(..)) where
 
 -- | h1
diff --git a/tests/golden-tests/tests/QuasiExpr.hs b/tests/golden-tests/tests/QuasiExpr.hs
index 6fc00a72..970759ba 100644
--- a/tests/golden-tests/tests/QuasiExpr.hs
+++ b/tests/golden-tests/tests/QuasiExpr.hs
@@ -5,20 +5,18 @@ module QuasiExpr where
 
 import Language.Haskell.TH
 import Language.Haskell.TH.Quote
-import Data.Typeable
-import Data.Generics
 
 data Expr  =  IntExpr Integer
            |  AntiIntExpr String
            |  BinopExpr BinOp Expr Expr
            |  AntiExpr String
-    deriving(Show, Typeable, Data)
+    deriving Show
 
 data BinOp  =  AddOp
             |  SubOp
             |  MulOp
             |  DivOp
-    deriving(Show, Typeable, Data)
+    deriving Show
 
 eval :: Expr -> Integer
 eval (IntExpr n)        = n
@@ -29,7 +27,7 @@ eval (BinopExpr op x y) = (opToFun op) (eval x) (eval y)
     opToFun MulOp = (*)
     opToFun DivOp = div
 
-expr = QuasiQuoter parseExprExp undefined
+expr = QuasiQuoter parseExprExp undefined undefined undefined
 
 -- cheating...
 parseExprExp :: String -> Q Exp
diff --git a/tests/golden-tests/tests/QuasiQuote.hs b/tests/golden-tests/tests/QuasiQuote.hs
index ed3c3787..06762cf9 100644
--- a/tests/golden-tests/tests/QuasiQuote.hs
+++ b/tests/golden-tests/tests/QuasiQuote.hs
@@ -6,4 +6,4 @@ module QuasiQuote where
 import QuasiExpr
 
 val :: Integer
-val = eval [$expr|1 + 2|]
+val = eval [expr|1 + 2|]
-- 
cgit v1.2.3