diff options
author | David Waern <david.waern@gmail.com> | 2010-12-01 22:04:57 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2010-12-01 22:04:57 +0000 |
commit | d0a2ff2625c9e95ab5accd4b1f1a4075d5d0d9b3 (patch) | |
tree | 6cd69a7b450137992705c19b3377029864384309 /tests | |
parent | 97b360ce526ca353c4b646279409adaf7f309c9d (diff) |
Make tests compile with ghc 7.0.1
Diffstat (limited to 'tests')
-rw-r--r-- | tests/golden-tests/tests/GADTRecords.hs | 2 | ||||
-rw-r--r-- | tests/golden-tests/tests/QuasiExpr.hs | 8 | ||||
-rw-r--r-- | 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|] |