1. <*> is included the Prelude of 7.10, it conflicts with Hoopl's def. change the...
authorNing Wang <email@ningwang.org>
Wed, 6 May 2015 02:21:38 +0000 (19:21 -0700)
committerNing Wang <email@ningwang.org>
Wed, 6 May 2015 02:21:38 +0000 (19:21 -0700)
hoopl.cabal
testing/Ast2ir.hs
testing/EvalMonad.hs
testing/OptSupport.hs

index aad6bc3..ac77173 100644 (file)
@@ -79,7 +79,6 @@ Test-Suite hoopl-test
   Type:              exitcode-stdio-1.0
   Main-Is:           Main.hs
   Hs-Source-Dirs:    testing src
-  Ghc-Options:       -Wall
   Build-Depends:     base >= 4.3 && < 4.9, 
                      containers >= 0.4 && < 0.6,
                      parsec >= 3.1.7,
index 56f0778..5647dfe 100644 (file)
@@ -2,7 +2,9 @@
 {-# LANGUAGE CPP, RankNTypes, ScopedTypeVariables, GADTs, EmptyDataDecls, PatternGuards, TypeFamilies, NamedFieldPuns #-}
 module Ast2ir (astToIR, IdLabelMap) where
 
-import           Compiler.Hoopl
+
+import           Compiler.Hoopl hiding ((<*>))
+import qualified Compiler.Hoopl as H ((<*>))
 import           Control.Monad
 import qualified Data.Map       as M
 
@@ -52,7 +54,7 @@ toBlock (A.Block { A.first = f, A.mids = ms, A.last = l }) =
   do f'  <- toFirst f
      ms' <- mapM toMid ms
      l'  <- toLast l
-     return $ mkFirst f' <*> mkMiddles ms' <*> mkLast l'
+     return $ mkFirst f' H.<*> mkMiddles ms' H.<*> mkLast l'
 
 toFirst :: A.Lbl -> LabelMapM (I.Insn C O)
 toFirst = liftM I.Label . labelFor
index 628a1f9..64d9ecf 100644 (file)
@@ -18,7 +18,7 @@ import Control.Applicative (Applicative(..))
 import Control.Applicative (Applicative(..))
 #endif
 
-import Compiler.Hoopl
+import Compiler.Hoopl hiding ((<*>))
 import IR
 
 type ErrorM        = Either String
index dacbcc4..a5c5fb9 100644 (file)
@@ -14,7 +14,7 @@ import Control.Applicative (Applicative(..))
 import Control.Applicative (Applicative(..))
 #endif
 
-import Compiler.Hoopl
+import Compiler.Hoopl hiding ((<*>))
 import IR
 
 ----------------------------------------------