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/golden-tests | |
| parent | 97b360ce526ca353c4b646279409adaf7f309c9d (diff) | |
Make tests compile with ghc 7.0.1
Diffstat (limited to 'tests/golden-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|] | 
