Make warning-clean with GHC again
authorIan Lynagh <igloo@earth.li>
Mon, 23 Jun 2008 23:20:23 +0000 (23:20 +0000)
committerIan Lynagh <igloo@earth.li>
Mon, 23 Jun 2008 23:20:23 +0000 (23:20 +0000)
With any luck we have now converged on a solution that works everywhere!

Data/Map.hs
Data/Sequence.hs
Data/Set.hs

index b5af2df..1009a4e 100644 (file)
@@ -177,9 +177,11 @@ import Data.Monoid (Monoid(..))
 import Control.Applicative (Applicative(..), (<$>))
 import Data.Traversable (Traversable(traverse))
 import Data.Foldable (Foldable(foldMap))
+#ifndef __GLASGOW_HASKELL__
 import Data.Typeable ( Typeable, typeOf, typeOfDefault
-                     , Typeable1, typeOf1, typeOf1Default
-                     , Typeable2(..), TyCon, mkTyCon, mkTyConApp )
+                     , Typeable1, typeOf1, typeOf1Default)
+#endif
+import Data.Typeable (Typeable2(..), TyCon, mkTyCon, mkTyConApp)
 
 {-
 -- for quick check
index cf3a251..60b2c1b 100644 (file)
@@ -75,8 +75,10 @@ import Control.Monad (MonadPlus(..))
 import Data.Monoid (Monoid(..))
 import Data.Foldable
 import Data.Traversable
-import Data.Typeable ( Typeable, typeOf, typeOfDefault
-                     , TyCon, Typeable1(..), mkTyCon, mkTyConApp )
+#ifndef __GLASGOW_HASKELL__
+import Data.Typeable (Typeable, typeOf, typeOfDefault)
+#endif
+import Data.Typeable (TyCon, Typeable1(..), mkTyCon, mkTyConApp )
 
 #ifdef __GLASGOW_HASKELL__
 import Text.Read (Lexeme(Ident), lexP, parens, prec,
index 12d11e2..0c66704 100644 (file)
@@ -104,8 +104,10 @@ import Prelude hiding (filter,foldr,null,map)
 import qualified Data.List as List
 import Data.Monoid (Monoid(..))
 import Data.Foldable (Foldable(foldMap))
-import Data.Typeable ( Typeable, typeOf, typeOfDefault
-                     , Typeable1(..), TyCon, mkTyCon, mkTyConApp)
+#ifndef __GLASGOW_HASKELL__
+import Data.Typeable (Typeable, typeOf, typeOfDefault)
+#endif
+import Data.Typeable (Typeable1(..), TyCon, mkTyCon, mkTyConApp)
 
 {-
 -- just for testing