X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FC%2FTypes.hs;fp=Foreign%2FC%2FTypes.hs;h=98113c8023e9f7977a3b990cbfae1860c27ccd4a;hb=4475dcabbc206d1cf0fc3fee88f600a4791d948c;hp=22bae5c187b3d59b44886b4eef40b1c087b9201d;hpb=7b7fc46fd296030068c6682b37c028656fdf4a55;p=ghc-base.git

diff --git a/Foreign/C/Types.hs b/Foreign/C/Types.hs
index 22bae5c..98113c8 100644
--- a/Foreign/C/Types.hs
+++ b/Foreign/C/Types.hs
@@ -4,6 +4,9 @@
            , GeneralizedNewtypeDeriving
   #-}
 {-# OPTIONS_GHC -fno-warn-unused-binds #-}
+#ifdef __GLASGOW_HASKELL__
+{-# LANGUAGE DeriveDataTypeable, StandaloneDeriving #-}
+#endif
 -- XXX -fno-warn-unused-binds stops us warning about unused constructors,
 -- but really we should just remove them if we don't want them
 
@@ -91,7 +94,7 @@ import Foreign.Storable
 import Data.Bits        ( Bits(..) )
 import Data.Int         ( Int8,  Int16,  Int32,  Int64  )
 import Data.Word        ( Word8, Word16, Word32, Word64 )
-import {-# SOURCE #-} Data.Typeable (Typeable(typeOf), TyCon, mkTyCon, mkTyConApp)
+import {-# SOURCE #-} Data.Typeable
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base