test impl(ghc) instead of IsGHC

[ghc-base.git] / base.cabal

diff --git a/base.cabal b/base.cabal
index a9148dd..b468df6 100644 (file)
--- a/base.cabal
+++ b/base.cabal
@@ -9,20 +9,12 @@ description:
     and a large collection of useful libraries ranging from data
     structures to parsing combinators and debugging utilities.
 
-Flag IsGHC {
-    Description: Are we compiling with GHC?
-    Default: True
-}
-
 Library {
     -- This is actually something of a hack, as if we are using
     -- GHC and we don't have an rts package for some reason, we
     -- actually ought to fail.
-    if flag(IsGHC) {
+    if impl(ghc) {
         build-depends: rts
-        if os(mingw32) {
-            extra-libraries: wsock32, msvcrt, kernel32, user32, shell32
-        }
         exposed-modules:
             Data.Generics,
             Data.Generics.Aliases,
@@ -84,15 +76,6 @@ Library {
         Control.Monad.ST,
         Control.Monad.ST.Lazy,
         Control.Monad.ST.Strict,
-        Data.Array,
-        Data.Array.Base,
-        Data.Array.Diff,
-        Data.Array.IArray,
-        Data.Array.IO,
-        Data.Array.MArray,
-        Data.Array.ST,
-        Data.Array.Storable,
-        Data.Array.Unboxed,
         Data.Bits,
         Data.Bool,
         Data.Char,
@@ -100,31 +83,23 @@ Library {
         Data.Dynamic,
         Data.Either,
         Data.Eq,
-        Data.Foldable,
         Data.Fixed,
+        Data.Foldable
         Data.Function,
-        Data.Graph,
         Data.HashTable,
         Data.IORef,
         Data.Int,
-        Data.IntMap,
-        Data.IntSet,
         Data.Ix,
         Data.List,
         Data.Maybe,
-        Data.Map,
         Data.Monoid,
         Data.Ord,
-        Data.PackedString,
         Data.Ratio,
         Data.STRef,
         Data.STRef.Lazy,
         Data.STRef.Strict,
-        Data.Sequence,
-        Data.Set,
         Data.String,
-        Data.Tree,
-        Data.Traversable,
+        Data.Traversable
         Data.Tuple,
         Data.Typeable,
         Data.Unique,
@@ -169,8 +144,6 @@ Library {
         Text.Show,
         Text.Show.Functions
         Unsafe.Coerce
-    other-modules:
-        Data.Array.IO.Internals
     c-sources:
         cbits/PrelIOUtils.c
         cbits/WCsubst.c
@@ -184,6 +157,9 @@ Library {
     include-dirs: include
     includes:    HsBase.h
     install-includes:    HsBase.h HsBaseConfig.h WCsubst.h dirUtils.h lockFile.h consUtils.h Typeable.h
+    if os(mingw32) {
+        extra-libraries: wsock32, msvcrt, kernel32, user32, shell32
+    }
     extensions:    CPP
     -- XXX is there an extension for using # in varids?
     -- We need to set the package name to base (without a version number)