Require GHC >= 7.0 for DeriveDataTypeable (fixes #19)
authorRoss Paterson <ross@soi.city.ac.uk>
Sun, 17 Jan 2016 02:21:58 +0000 (02:21 +0000)
committerRoss Paterson <ross@soi.city.ac.uk>
Sun, 17 Jan 2016 02:21:58 +0000 (02:21 +0000)
It seems it was buggy in 6.12.

legacy/pre709/Data/Functor/Identity.hs

index a37a4ac..63b1bd9 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE CPP #-}
-#if __GLASGOW_HASKELL__ >= 612
+#if __GLASGOW_HASKELL__ >= 700
 {-# LANGUAGE DeriveDataTypeable #-}
 #endif
 #if __GLASGOW_HASKELL__ >= 702
@@ -49,7 +49,7 @@ import Control.Monad.Zip (MonadZip(mzipWith, munzip))
 import Data.Foldable (Foldable(foldMap))
 import Data.Monoid (Monoid(mempty, mappend))
 import Data.Traversable (Traversable(traverse))
-#if __GLASGOW_HASKELL__ >= 612
+#if __GLASGOW_HASKELL__ >= 700
 import Data.Data
 #endif
 import Data.Ix (Ix(..))
@@ -61,7 +61,7 @@ import GHC.Generics
 -- | Identity functor and monad. (a non-strict monad)
 newtype Identity a = Identity { runIdentity :: a }
     deriving ( Eq, Ord
-#if __GLASGOW_HASKELL__ >= 612
+#if __GLASGOW_HASKELL__ >= 700
              , Data, Typeable
 #endif
 #if __GLASGOW_HASKELL__ >= 702