[commit: hsc2hs] master: Fix some AMP fallout (af92e43)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/hsc2hs

On branch  : master
Link       : http://git.haskell.org/hsc2hs.git/commitdiff/af92e439369b7a3bb7d0476243af9b5622b7a48f

>---------------------------------------------------------------

commit af92e439369b7a3bb7d0476243af9b5622b7a48f
Author: Austin Seipp <austin at well-typed.com>
Date:   Fri Aug 1 11:24:44 2014 -0500

    Fix some AMP fallout
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

af92e439369b7a3bb7d0476243af9b5622b7a48f
 CrossCodegen.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/CrossCodegen.hs b/CrossCodegen.hs
index 725a94b..db9b124 100644
--- a/CrossCodegen.hs
+++ b/CrossCodegen.hs
@@ -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