Fix some AMP fallout
authorAustin Seipp <austin@well-typed.com>
Fri, 1 Aug 2014 16:24:44 +0000 (11:24 -0500)
committerAustin Seipp <austin@well-typed.com>
Fri, 1 Aug 2014 16:24:44 +0000 (11:24 -0500)
Signed-off-by: Austin Seipp <austin@well-typed.com>
CrossCodegen.hs

index 725a94b..db9b124 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE NoMonomorphismRestriction #-}
 
 module CrossCodegen where
@@ -27,7 +28,9 @@ import System.Directory (removeFile)
 import Data.Char (toLower,toUpper,isSpace)
 import Control.Exception (assert, onException)
 import Control.Monad (when, liftM, forM, ap)
+#if __GLASGOW_HASKELL__ < 709
 import Control.Applicative (Applicative(..))
+#endif
 import Data.Foldable (concatMap)
 import Data.Maybe (fromMaybe)
 import qualified Data.Sequence as S