packages feed

base-compat 0.3.0 → 0.4.0

raw patch · 176 files changed

+260/−1007 lines, 176 filesdep ~base

Dependency ranges changed: base

Files

base-compat.cabal view
@@ -1,10 +1,11 @@ name:             base-compat-version:          0.3.0+version:          0.4.0 license:          MIT license-file:     LICENSE-copyright:        (c) 2012 Simon Hengel-author:           Simon Hengel <sol@typeful.net>-maintainer:       Simon Hengel <sol@typeful.net>+copyright:        (c) 2012-2014 Simon Hengel,+                  (c) 2014 João Cristóvão+author:           Simon Hengel <sol@typeful.net>, João Cristóvão <jmacristovao@gmail.com>+maintainer:       Simon Hengel <sol@typeful.net>, João Cristóvão <jmacristovao@gmail.com> build-type:       Simple cabal-version:    >= 1.8 category:         System@@ -17,7 +18,6 @@   location: https://github.com/sol/base-compat  library-  exposed: False   ghc-options:       -Wall   build-depends:@@ -30,225 +30,40 @@   ghc-options:     -fno-warn-duplicate-exports ---  if impl(ghc == 7.6.1)---    include-dirs: includes/ghc-7.6.1/---  if impl(ghc == 7.4.2)---    include-dirs: includes/ghc-7.4.2/---  if impl(ghc == 7.4.1)---    include-dirs: includes/ghc-7.4.1/---  if impl(ghc == 7.2.2)---    include-dirs: includes/ghc-7.2.2/---  if impl(ghc == 7.2.1)---    include-dirs: includes/ghc-7.2.1/---  if impl(ghc == 7.0.4)---    include-dirs: includes/ghc-7.0.4/---  if impl(ghc == 7.0.3)---    include-dirs: includes/ghc-7.0.3/---  if impl(ghc == 7.0.2)---    include-dirs: includes/ghc-7.0.2/---  if impl(ghc == 7.0.1)---    include-dirs: includes/ghc-7.0.1/---  if impl(ghc == 6.12.3)---    include-dirs: includes/ghc-6.12.3/---  if impl(ghc == 6.12.2)---    include-dirs: includes/ghc-6.12.2/---  if impl(ghc == 6.12.1)---    include-dirs: includes/ghc-6.12.1/------  install-includes:---    base-compat.h-   hs-source-dirs:       src -  if !os(windows)-    exposed-modules:-      -- stubbed for base < 4.4.0-      GHC.Event-   exposed-modules:       -- with modifications-      Data.Monoid-      System.Environment-      Text.Read+      Prelude.Compat+      Control.Monad.Compat+      Control.Applicative.Compat+      Data.Bool.Compat+      Data.Either.Compat+      Data.Foldable.Compat+      Data.Functor.Compat+      Data.Monoid.Compat+      Data.Traversable.Compat+      System.Environment.Compat+      Text.Read.Compat -      -- fixed warnings-      GHC.ConsoleHandler-      GHC.IO.Encoding.CodePage-      Text.Show.Functions+      -- added Eq/Ord instance for ErrorCall+      Control.Exception.Compat+      Control.Exception.Base.Compat+      GHC.Exception.Compat -      -- stubbed for base < 4.5.0-      GHC.Stack-      GHC.Stats -      -- stubbed for base < 4.4.0-      Control.Monad.ST.Lazy.Safe-      Control.Monad.ST.Lazy.Unsafe-      Control.Monad.ST.Safe-      Control.Monad.ST.Unsafe-      Control.Monad.Zip-      Data.Typeable.Internal-      Foreign.ForeignPtr.Safe-      Foreign.ForeignPtr.Unsafe-      Foreign.Marshal.Safe-      Foreign.Marshal.Unsafe-      Foreign.Safe-      GHC.Fingerprint-      GHC.Fingerprint.Type-      GHC.Float.ConversionUtils-      GHC.Float.RealFracMethods-      GHC.Foreign-      GHC.IO.Encoding.Failure--      -- stubbed for base < 4.3.0-      GHC.Conc.IO-      GHC.Conc.Signal-      GHC.Conc.Sync--      -- pristine-      Prelude-      Control.Applicative-      Control.Arrow-      Control.Category-      Control.Concurrent-      Control.Concurrent.Chan-      Control.Concurrent.MVar-      Control.Exception-      Control.Exception.Base-      Control.Monad-      Control.Monad.Fix-      Control.Monad.Instances-      Control.Monad.ST-      Control.Monad.ST.Lazy-      Control.Monad.ST.Strict-      Data.Bits-      Data.Bool-      Data.Char-      Data.Complex-      Data.Data-      Data.Dynamic-      Data.Either-      Data.Eq-      Data.Fixed-      Data.Foldable-      Data.Function-      Data.Functor-      Data.Int-      Data.IORef-      Data.Ix-      Data.List-      Data.Maybe-      Data.Ord-      Data.Ratio-      Data.STRef-      Data.STRef.Lazy-      Data.STRef.Strict-      Data.String-      Data.Traversable-      Data.Tuple-      Data.Typeable-      Data.Unique-      Data.Version-      Data.Word-      Debug.Trace-      Foreign-      Foreign.C-      Foreign.C.Error-      Foreign.Concurrent-      Foreign.C.String-      Foreign.C.Types-      Foreign.ForeignPtr-      Foreign.Marshal-      Foreign.Marshal.Alloc-      Foreign.Marshal.Array-      Foreign.Marshal.Error-      Foreign.Marshal.Pool-      Foreign.Marshal.Utils-      Foreign.Ptr-      Foreign.StablePtr-      Foreign.Storable-      GHC.Arr-      GHC.Base-      GHC.Conc-      GHC.Constants-      GHC.Desugar-      GHC.Enum-      GHC.Environment-      GHC.Err-      GHC.Exception-      GHC.Exts-      GHC.Float-      GHC.ForeignPtr-      GHC.Int-      GHC.IO-      GHC.IOArray-      GHC.IO.Buffer-      GHC.IO.BufferedIO-      GHC.IO.Device-      GHC.IO.Encoding-      GHC.IO.Encoding.Iconv-      GHC.IO.Encoding.Latin1-      GHC.IO.Encoding.Types-      GHC.IO.Encoding.UTF16-      GHC.IO.Encoding.UTF32-      GHC.IO.Encoding.UTF8-      GHC.IO.Exception-      GHC.IO.FD-      GHC.IO.Handle-      GHC.IO.Handle.FD-      GHC.IO.Handle.Internals-      GHC.IO.Handle.Text-      GHC.IO.Handle.Types-      GHC.IO.IOMode-      GHC.IORef-      GHC.List-      GHC.MVar-      GHC.Num-      GHC.Pack-      GHC.PArr-      GHC.Ptr-      GHC.Read-      GHC.Real-      GHC.Show-      GHC.ST-      GHC.Stable-      GHC.Storable-      GHC.STRef-      GHC.TopHandler-      GHC.Unicode-      GHC.Weak-      GHC.Word-      Numeric-      System.Console.GetOpt-      System.CPUTime-      System.Exit-      System.Info-      System.IO-      System.IO.Error-      System.IO.Unsafe-      System.Mem-      System.Mem.StableName-      System.Mem.Weak-      System.Posix.Internals-      System.Posix.Types-      System.Timeout-      Text.ParserCombinators.ReadP-      Text.ParserCombinators.ReadPrec-      Text.Printf-      Text.Read.Lex-      Text.Show-      Unsafe.Coerce- test-suite spec   type:       exitcode-stdio-1.0   ghc-options:-      -Wall -Werror+      -Wall   hs-source-dirs:       test   main-is:       Spec.hs   build-depends:-      base-compat+      base > 4.0+    , base-compat     , hspec >= 1.3     , setenv
− src/Control/Applicative.hs 
@@ -1,4 +0,0 @@-module Control.Applicative (-  module Base-) where-import "base" Control.Applicative as Base
+ src/Control/Applicative/Compat.hs view
@@ -0,0 +1,22 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Control.Applicative.Compat (+  module Base+, Const(..)+, WrappedMonad(..)+) where+import "base" Control.Applicative as Base++#if !MIN_VERSION_base(4,7,0)+import Data.Monoid (Monoid(..),mempty,mappend)+import Control.Monad (Monad(..))+import Data.Function ((.))+-- Added in base-4.7.0.0+instance Monoid a => Monoid (Const a b) where+    mempty = Const mempty+    mappend (Const a) (Const b) = Const (mappend a b)++-- Added in base-4.7.0.0 (GHC Trac #8218)+instance Monad m => Monad (WrappedMonad m) where+    return = WrapMonad . return+    a >>= f = WrapMonad (unwrapMonad a >>= unwrapMonad . f)+#endif
− src/Control/Arrow.hs 
@@ -1,4 +0,0 @@-module Control.Arrow (-  module Base-) where-import "base" Control.Arrow as Base
− src/Control/Category.hs 
@@ -1,4 +0,0 @@-module Control.Category (-  module Base-) where-import "base" Control.Category as Base
− src/Control/Concurrent.hs 
@@ -1,4 +0,0 @@-module Control.Concurrent (-  module Base-) where-import "base" Control.Concurrent as Base
− src/Control/Concurrent/Chan.hs 
@@ -1,4 +0,0 @@-module Control.Concurrent.Chan (-  module Base-) where-import "base" Control.Concurrent.Chan as Base
− src/Control/Concurrent/MVar.hs 
@@ -1,4 +0,0 @@-module Control.Concurrent.MVar (-  module Base-) where-import "base" Control.Concurrent.MVar as Base
− src/Control/Exception.hs 
@@ -1,5 +0,0 @@-module Control.Exception (-  module Base-) where-import "base" Control.Exception as Base-import GHC.Exception ()
− src/Control/Exception/Base.hs 
@@ -1,5 +0,0 @@-module Control.Exception.Base (-  module Base-) where-import "base" Control.Exception.Base as Base-import GHC.Exception ()
+ src/Control/Exception/Base/Compat.hs view
@@ -0,0 +1,5 @@+module Control.Exception.Base.Compat (+  module Base+) where+import "base" Control.Exception.Base as Base+import GHC.Exception.Compat ()
+ src/Control/Exception/Compat.hs view
@@ -0,0 +1,5 @@+module Control.Exception.Compat (+  module Base+) where+import "base" Control.Exception as Base+import GHC.Exception.Compat ()
− src/Control/Monad.hs 
@@ -1,4 +0,0 @@-module Control.Monad (-  module Base-) where-import "base" Control.Monad as Base
+ src/Control/Monad/Compat.hs view
@@ -0,0 +1,15 @@+module Control.Monad.Compat (+  module Base+, void+) where++import           Control.Monad as Base++#if !MIN_VERSION_base(4,3,0)++import           Prelude.Compat++-- | @'void' value@ discards or ignores the result of evaluation, such as the return value of an 'IO' action.+void :: Functor f => f a -> f ()+void = fmap (const ())+#endif
− src/Control/Monad/Fix.hs 
@@ -1,4 +0,0 @@-module Control.Monad.Fix (-  module Base-) where-import "base" Control.Monad.Fix as Base
− src/Control/Monad/Instances.hs 
@@ -1,4 +0,0 @@-module Control.Monad.Instances (-  module Base-) where-import "base" Control.Monad.Instances as Base
− src/Control/Monad/ST.hs 
@@ -1,4 +0,0 @@-module Control.Monad.ST (-  module Base-) where-import "base" Control.Monad.ST as Base
− src/Control/Monad/ST/Lazy.hs 
@@ -1,4 +0,0 @@-module Control.Monad.ST.Lazy (-  module Base-) where-import "base" Control.Monad.ST.Lazy as Base
− src/Control/Monad/ST/Lazy/Safe.hs 
@@ -1,8 +0,0 @@-module Control.Monad.ST.Lazy.Safe (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Control.Monad.ST.Lazy.Safe as Base-#else-) where-#endif
− src/Control/Monad/ST/Lazy/Unsafe.hs 
@@ -1,8 +0,0 @@-module Control.Monad.ST.Lazy.Unsafe (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Control.Monad.ST.Lazy.Unsafe as Base-#else-) where-#endif
− src/Control/Monad/ST/Safe.hs 
@@ -1,8 +0,0 @@-module Control.Monad.ST.Safe (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Control.Monad.ST.Safe as Base-#else-) where-#endif
− src/Control/Monad/ST/Strict.hs 
@@ -1,4 +0,0 @@-module Control.Monad.ST.Strict (-  module Base-) where-import "base" Control.Monad.ST.Strict as Base
− src/Control/Monad/ST/Unsafe.hs 
@@ -1,8 +0,0 @@-module Control.Monad.ST.Unsafe (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Control.Monad.ST.Unsafe as Base-#else-) where-#endif
− src/Control/Monad/Zip.hs 
@@ -1,8 +0,0 @@-module Control.Monad.Zip (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Control.Monad.Zip as Base-#else-) where-#endif
− src/Data/Bits.hs 
@@ -1,4 +0,0 @@-module Data.Bits (-  module Base-) where-import "base" Data.Bits as Base
− src/Data/Bool.hs 
@@ -1,4 +0,0 @@-module Data.Bool (-  module Base-) where-import "base" Data.Bool as Base
+ src/Data/Bool/Compat.hs view
@@ -0,0 +1,16 @@+module Data.Bool.Compat (+  module Base+, bool+) where+import "base" Data.Bool as Base++#if !MIN_VERSION_base(4,7,0)+-- | Case analysis for the 'Bool' type.+-- @bool a b p@ evaluates to @a@ when @p@ is @False@, and evaluates to @b@+-- when @p@ is @True@.+--+-- /Since: 4.7.0.0/+bool :: a -> a -> Bool -> a+bool f _ False = f+bool _ t True  = t+#endif
− src/Data/Char.hs 
@@ -1,4 +0,0 @@-module Data.Char (-  module Base-) where-import "base" Data.Char as Base
− src/Data/Complex.hs 
@@ -1,4 +0,0 @@-module Data.Complex (-  module Base-) where-import "base" Data.Complex as Base
− src/Data/Data.hs 
@@ -1,4 +0,0 @@-module Data.Data (-  module Base-) where-import "base" Data.Data as Base
− src/Data/Dynamic.hs 
@@ -1,4 +0,0 @@-module Data.Dynamic (-  module Base-) where-import "base" Data.Dynamic as Base
− src/Data/Either.hs 
@@ -1,4 +0,0 @@-module Data.Either (-  module Base-) where-import "base" Data.Either as Base
+ src/Data/Either/Compat.hs view
@@ -0,0 +1,23 @@+module Data.Either.Compat (+  module Base+, isLeft+, isRight+) where+import "base" Data.Either as Base++#if !MIN_VERSION_base(4,7,0)+import Data.Bool (Bool(..))+-- | Return `True` if the given value is a `Left`-value, `False` otherwise.+--+-- /Since: 4.7.0.0/+isLeft :: Either a b -> Bool+isLeft (Left  _) = True+isLeft (Right _) = False++-- | Return `True` if the given value is a `Right`-value, `False` otherwise.+--+-- /Since: 4.7.0.0/+isRight :: Either a b -> Bool+isRight (Left  _) = False+isRight (Right _) = True+#endif
− src/Data/Eq.hs 
@@ -1,4 +0,0 @@-module Data.Eq (-  module Base-) where-import "base" Data.Eq as Base
− src/Data/Fixed.hs 
@@ -1,4 +0,0 @@-module Data.Fixed (-  module Base-) where-import "base" Data.Fixed as Base
− src/Data/Foldable.hs 
@@ -1,4 +0,0 @@-module Data.Foldable (-  module Base-) where-import "base" Data.Foldable as Base
+ src/Data/Foldable/Compat.hs view
@@ -0,0 +1,27 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Data.Foldable.Compat (+  module Base+, Foldable(..)+) where+import "base" Data.Foldable as Base++#if !MIN_VERSION_base(4,7,0)+import Data.Either (Either(..))+import Data.Monoid (mempty)+import Control.Applicative (Const(..))++instance Foldable (Either a) where+    foldMap _ (Left _) = mempty+    foldMap f (Right y) = f y++    foldr _ z (Left _) = z+    foldr f z (Right y) = f y z++instance Foldable ((,) a) where+    foldMap f (_, y) = f y++    foldr f z (_, y) = f y z++instance Foldable (Const m) where+    foldMap _ _ = mempty+#endif
− src/Data/Function.hs 
@@ -1,4 +0,0 @@-module Data.Function (-  module Base-) where-import "base" Data.Function as Base
− src/Data/Functor.hs 
@@ -1,4 +0,0 @@-module Data.Functor (-  module Base-) where-import "base" Data.Functor as Base
+ src/Data/Functor/Compat.hs view
@@ -0,0 +1,20 @@+module Data.Functor.Compat (+  module Base+, ($>)+, void+) where+import "base" Data.Functor as Base++#if !MIN_VERSION_base(4,7,0)+import Control.Monad.Compat (void)+import Data.Function (flip)++infixl 4 $>++-- | Flipped version of '$>'.+--+-- /Since: 4.7.0.0/+($>) :: Functor f => f a -> b -> f b+($>) = flip (<$)++#endif
− src/Data/IORef.hs 
@@ -1,4 +0,0 @@-module Data.IORef (-  module Base-) where-import "base" Data.IORef as Base
− src/Data/Int.hs 
@@ -1,4 +0,0 @@-module Data.Int (-  module Base-) where-import "base" Data.Int as Base
− src/Data/Ix.hs 
@@ -1,4 +0,0 @@-module Data.Ix (-  module Base-) where-import "base" Data.Ix as Base
− src/Data/List.hs 
@@ -1,4 +0,0 @@-module Data.List (-  module Base-) where-import "base" Data.List as Base
− src/Data/Maybe.hs 
@@ -1,4 +0,0 @@-module Data.Maybe (-  module Base-) where-import "base" Data.Maybe as Base
− src/Data/Monoid.hs 
@@ -1,12 +0,0 @@-module Data.Monoid (-  module Base-, (<>)-) where-import "base" Data.Monoid as Base--#if !MIN_VERSION_base(4,5,0)--- | An infix synonym for 'mappend'.-(<>) :: Monoid m => m -> m -> m-(<>) = mappend-{-# INLINE (<>) #-}-#endif
+ src/Data/Monoid/Compat.hs view
@@ -0,0 +1,12 @@+module Data.Monoid.Compat (+  module Base+, (<>)+) where+import "base" Data.Monoid as Base++#if !MIN_VERSION_base(4,5,0)+-- | An infix synonym for 'mappend'.+(<>) :: Monoid m => m -> m -> m+(<>) = mappend+{-# INLINE (<>) #-}+#endif
− src/Data/Ord.hs 
@@ -1,4 +0,0 @@-module Data.Ord (-  module Base-) where-import "base" Data.Ord as Base
− src/Data/Ratio.hs 
@@ -1,4 +0,0 @@-module Data.Ratio (-  module Base-) where-import "base" Data.Ratio as Base
− src/Data/STRef.hs 
@@ -1,4 +0,0 @@-module Data.STRef (-  module Base-) where-import "base" Data.STRef as Base
− src/Data/STRef/Lazy.hs 
@@ -1,4 +0,0 @@-module Data.STRef.Lazy (-  module Base-) where-import "base" Data.STRef.Lazy as Base
− src/Data/STRef/Strict.hs 
@@ -1,4 +0,0 @@-module Data.STRef.Strict (-  module Base-) where-import "base" Data.STRef.Strict as Base
− src/Data/String.hs 
@@ -1,4 +0,0 @@-module Data.String (-  module Base-) where-import "base" Data.String as Base
− src/Data/Traversable.hs 
@@ -1,4 +0,0 @@-module Data.Traversable (-  module Base-) where-import "base" Data.Traversable as Base
+ src/Data/Traversable/Compat.hs view
@@ -0,0 +1,23 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+module Data.Traversable.Compat (+  module Base+, Traversable(..)+) where+import "base" Data.Traversable as Base++#if !MIN_VERSION_base(4,7,0)+import Data.Either (Either(..))+import Data.Foldable.Compat ()+import Data.Function (($))+import Control.Applicative (Const(..),pure,(<$>))++instance Traversable (Either a) where+    traverse _ (Left x) = pure (Left x)+    traverse f (Right y) = Right <$> f y++instance Traversable ((,) a) where+    traverse f (x, y) = (,) x <$> f y++instance Traversable (Const m) where+    traverse _ (Const m) = pure $ Const m+#endif
− src/Data/Tuple.hs 
@@ -1,4 +0,0 @@-module Data.Tuple (-  module Base-) where-import "base" Data.Tuple as Base
− src/Data/Typeable.hs 
@@ -1,4 +0,0 @@-module Data.Typeable (-  module Base-) where-import "base" Data.Typeable as Base
− src/Data/Typeable/Internal.hs 
@@ -1,8 +0,0 @@-module Data.Typeable.Internal (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Data.Typeable.Internal as Base-#else-) where-#endif
− src/Data/Unique.hs 
@@ -1,4 +0,0 @@-module Data.Unique (-  module Base-) where-import "base" Data.Unique as Base
− src/Data/Version.hs 
@@ -1,4 +0,0 @@-module Data.Version (-  module Base-) where-import "base" Data.Version as Base
− src/Data/Word.hs 
@@ -1,4 +0,0 @@-module Data.Word (-  module Base-) where-import "base" Data.Word as Base
− src/Debug/Trace.hs 
@@ -1,4 +0,0 @@-module Debug.Trace (-  module Base-) where-import "base" Debug.Trace as Base
− src/Foreign.hs 
@@ -1,4 +0,0 @@-module Foreign (-  module Base-) where-import "base" Foreign as Base
− src/Foreign/C.hs 
@@ -1,4 +0,0 @@-module Foreign.C (-  module Base-) where-import "base" Foreign.C as Base
− src/Foreign/C/Error.hs 
@@ -1,4 +0,0 @@-module Foreign.C.Error (-  module Base-) where-import "base" Foreign.C.Error as Base
− src/Foreign/C/String.hs 
@@ -1,4 +0,0 @@-module Foreign.C.String (-  module Base-) where-import "base" Foreign.C.String as Base
− src/Foreign/C/Types.hs 
@@ -1,4 +0,0 @@-module Foreign.C.Types (-  module Base-) where-import "base" Foreign.C.Types as Base
− src/Foreign/Concurrent.hs 
@@ -1,4 +0,0 @@-module Foreign.Concurrent (-  module Base-) where-import "base" Foreign.Concurrent as Base
− src/Foreign/ForeignPtr.hs 
@@ -1,4 +0,0 @@-module Foreign.ForeignPtr (-  module Base-) where-import "base" Foreign.ForeignPtr as Base
− src/Foreign/ForeignPtr/Safe.hs 
@@ -1,8 +0,0 @@-module Foreign.ForeignPtr.Safe (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Foreign.ForeignPtr.Safe as Base-#else-) where-#endif
− src/Foreign/ForeignPtr/Unsafe.hs 
@@ -1,8 +0,0 @@-module Foreign.ForeignPtr.Unsafe (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Foreign.ForeignPtr.Unsafe as Base-#else-) where-#endif
− src/Foreign/Marshal.hs 
@@ -1,4 +0,0 @@-module Foreign.Marshal (-  module Base-) where-import "base" Foreign.Marshal as Base
− src/Foreign/Marshal/Alloc.hs 
@@ -1,4 +0,0 @@-module Foreign.Marshal.Alloc (-  module Base-) where-import "base" Foreign.Marshal.Alloc as Base
− src/Foreign/Marshal/Array.hs 
@@ -1,4 +0,0 @@-module Foreign.Marshal.Array (-  module Base-) where-import "base" Foreign.Marshal.Array as Base
− src/Foreign/Marshal/Error.hs 
@@ -1,4 +0,0 @@-module Foreign.Marshal.Error (-  module Base-) where-import "base" Foreign.Marshal.Error as Base
− src/Foreign/Marshal/Pool.hs 
@@ -1,4 +0,0 @@-module Foreign.Marshal.Pool (-  module Base-) where-import "base" Foreign.Marshal.Pool as Base
− src/Foreign/Marshal/Safe.hs 
@@ -1,8 +0,0 @@-module Foreign.Marshal.Safe (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Foreign.Marshal.Safe as Base-#else-) where-#endif
− src/Foreign/Marshal/Unsafe.hs 
@@ -1,8 +0,0 @@-module Foreign.Marshal.Unsafe (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Foreign.Marshal.Unsafe as Base-#else-) where-#endif
− src/Foreign/Marshal/Utils.hs 
@@ -1,4 +0,0 @@-module Foreign.Marshal.Utils (-  module Base-) where-import "base" Foreign.Marshal.Utils as Base
− src/Foreign/Ptr.hs 
@@ -1,4 +0,0 @@-module Foreign.Ptr (-  module Base-) where-import "base" Foreign.Ptr as Base
− src/Foreign/Safe.hs 
@@ -1,8 +0,0 @@-module Foreign.Safe (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" Foreign.Safe as Base-#else-) where-#endif
− src/Foreign/StablePtr.hs 
@@ -1,4 +0,0 @@-module Foreign.StablePtr (-  module Base-) where-import "base" Foreign.StablePtr as Base
− src/Foreign/Storable.hs 
@@ -1,4 +0,0 @@-module Foreign.Storable (-  module Base-) where-import "base" Foreign.Storable as Base
− src/GHC/Arr.hs 
@@ -1,4 +0,0 @@-module GHC.Arr (-  module Base-) where-import "base" GHC.Arr as Base
− src/GHC/Base.hs 
@@ -1,4 +0,0 @@-module GHC.Base (-  module Base-) where-import "base" GHC.Base as Base
− src/GHC/Conc.hs 
@@ -1,4 +0,0 @@-module GHC.Conc (-  module Base-) where-import "base" GHC.Conc as Base
− src/GHC/Conc/IO.hs 
@@ -1,8 +0,0 @@-module GHC.Conc.IO (-#if MIN_VERSION_base(4,3,0)-  module Base-) where-import "base" GHC.Conc.IO as Base-#else-) where-#endif
− src/GHC/Conc/Signal.hs 
@@ -1,8 +0,0 @@-module GHC.Conc.Signal (-#if MIN_VERSION_base(4,3,0)-  module Base-) where-import "base" GHC.Conc.Signal as Base-#else-) where-#endif
− src/GHC/Conc/Sync.hs 
@@ -1,8 +0,0 @@-module GHC.Conc.Sync (-#if MIN_VERSION_base(4,3,0)-  module Base-) where-import "base" GHC.Conc.Sync as Base-#else-) where-#endif
− src/GHC/ConsoleHandler.hs 
@@ -1,4 +0,0 @@-{-# OPTIONS_GHC -fno-warn-dodgy-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-module GHC.ConsoleHandler (module Base) where-import "base" GHC.ConsoleHandler as Base
− src/GHC/Constants.hs 
@@ -1,4 +0,0 @@-module GHC.Constants (-  module Base-) where-import "base" GHC.Constants as Base
− src/GHC/Desugar.hs 
@@ -1,4 +0,0 @@-module GHC.Desugar (-  module Base-) where-import "base" GHC.Desugar as Base
− src/GHC/Enum.hs 
@@ -1,4 +0,0 @@-module GHC.Enum (-  module Base-) where-import "base" GHC.Enum as Base
− src/GHC/Environment.hs 
@@ -1,4 +0,0 @@-module GHC.Environment (-  module Base-) where-import "base" GHC.Environment as Base
− src/GHC/Err.hs 
@@ -1,4 +0,0 @@-module GHC.Err (-  module Base-) where-import "base" GHC.Err as Base
− src/GHC/Event.hs 
@@ -1,8 +0,0 @@-module GHC.Event (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" GHC.Event as Base-#else-) where-#endif
− src/GHC/Exception.hs 
@@ -1,12 +0,0 @@-{-# LANGUAGE StandaloneDeriving #-}-{-# OPTIONS_GHC -fno-warn-orphans #-}-module GHC.Exception (-  module Base-) where-import "base" GHC.Exception as Base-import Control.Exception.ErrorCall.EqInstance ()--#if __GLASGOW_HASKELL__ <= 706-import Prelude-deriving instance Ord ErrorCall-#endif
+ src/GHC/Exception/Compat.hs view
@@ -0,0 +1,12 @@+{-# LANGUAGE StandaloneDeriving #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module GHC.Exception.Compat (+  module Base+) where+import "base" GHC.Exception as Base+import Control.Exception.ErrorCall.EqInstance ()++#if __GLASGOW_HASKELL__ <= 706+import Prelude+deriving instance Ord ErrorCall+#endif
− src/GHC/Exts.hs 
@@ -1,4 +0,0 @@-module GHC.Exts (-  module Base-) where-import "base" GHC.Exts as Base
− src/GHC/Fingerprint.hs 
@@ -1,8 +0,0 @@-module GHC.Fingerprint (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" GHC.Fingerprint as Base-#else-) where-#endif
− src/GHC/Fingerprint/Type.hs 
@@ -1,8 +0,0 @@-module GHC.Fingerprint.Type (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" GHC.Fingerprint.Type as Base-#else-) where-#endif
− src/GHC/Float.hs 
@@ -1,4 +0,0 @@-module GHC.Float (-  module Base-) where-import "base" GHC.Float as Base
− src/GHC/Float/ConversionUtils.hs 
@@ -1,8 +0,0 @@-module GHC.Float.ConversionUtils (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" GHC.Float.ConversionUtils as Base-#else-) where-#endif
− src/GHC/Float/RealFracMethods.hs 
@@ -1,8 +0,0 @@-module GHC.Float.RealFracMethods (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" GHC.Float.RealFracMethods as Base-#else-) where-#endif
− src/GHC/Foreign.hs 
@@ -1,8 +0,0 @@-module GHC.Foreign (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" GHC.Foreign as Base-#else-) where-#endif
− src/GHC/ForeignPtr.hs 
@@ -1,4 +0,0 @@-module GHC.ForeignPtr (-  module Base-) where-import "base" GHC.ForeignPtr as Base
− src/GHC/IO.hs 
@@ -1,4 +0,0 @@-module GHC.IO (-  module Base-) where-import "base" GHC.IO as Base
− src/GHC/IO/Buffer.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Buffer (-  module Base-) where-import "base" GHC.IO.Buffer as Base
− src/GHC/IO/BufferedIO.hs 
@@ -1,4 +0,0 @@-module GHC.IO.BufferedIO (-  module Base-) where-import "base" GHC.IO.BufferedIO as Base
− src/GHC/IO/Device.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Device (-  module Base-) where-import "base" GHC.IO.Device as Base
− src/GHC/IO/Encoding.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Encoding (-  module Base-) where-import "base" GHC.IO.Encoding as Base
− src/GHC/IO/Encoding/CodePage.hs 
@@ -1,4 +0,0 @@-{-# OPTIONS_GHC -fno-warn-dodgy-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-module GHC.IO.Encoding.CodePage (module Base) where-import "base" GHC.IO.Encoding.CodePage as Base
− src/GHC/IO/Encoding/Failure.hs 
@@ -1,8 +0,0 @@-module GHC.IO.Encoding.Failure (-#if MIN_VERSION_base(4,4,0)-  module Base-) where-import "base" GHC.IO.Encoding.Failure as Base-#else-) where-#endif
− src/GHC/IO/Encoding/Iconv.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Encoding.Iconv (-  module Base-) where-import "base" GHC.IO.Encoding.Iconv as Base
− src/GHC/IO/Encoding/Latin1.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Encoding.Latin1 (-  module Base-) where-import "base" GHC.IO.Encoding.Latin1 as Base
− src/GHC/IO/Encoding/Types.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Encoding.Types (-  module Base-) where-import "base" GHC.IO.Encoding.Types as Base
− src/GHC/IO/Encoding/UTF16.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Encoding.UTF16 (-  module Base-) where-import "base" GHC.IO.Encoding.UTF16 as Base
− src/GHC/IO/Encoding/UTF32.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Encoding.UTF32 (-  module Base-) where-import "base" GHC.IO.Encoding.UTF32 as Base
− src/GHC/IO/Encoding/UTF8.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Encoding.UTF8 (-  module Base-) where-import "base" GHC.IO.Encoding.UTF8 as Base
− src/GHC/IO/Exception.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Exception (-  module Base-) where-import "base" GHC.IO.Exception as Base
− src/GHC/IO/FD.hs 
@@ -1,4 +0,0 @@-module GHC.IO.FD (-  module Base-) where-import "base" GHC.IO.FD as Base
− src/GHC/IO/Handle.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Handle (-  module Base-) where-import "base" GHC.IO.Handle as Base
− src/GHC/IO/Handle/FD.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Handle.FD (-  module Base-) where-import "base" GHC.IO.Handle.FD as Base
− src/GHC/IO/Handle/Internals.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Handle.Internals (-  module Base-) where-import "base" GHC.IO.Handle.Internals as Base
− src/GHC/IO/Handle/Text.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Handle.Text (-  module Base-) where-import "base" GHC.IO.Handle.Text as Base
− src/GHC/IO/Handle/Types.hs 
@@ -1,4 +0,0 @@-module GHC.IO.Handle.Types (-  module Base-) where-import "base" GHC.IO.Handle.Types as Base
− src/GHC/IO/IOMode.hs 
@@ -1,4 +0,0 @@-module GHC.IO.IOMode (-  module Base-) where-import "base" GHC.IO.IOMode as Base
− src/GHC/IOArray.hs 
@@ -1,4 +0,0 @@-module GHC.IOArray (-  module Base-) where-import "base" GHC.IOArray as Base
− src/GHC/IORef.hs 
@@ -1,4 +0,0 @@-module GHC.IORef (-  module Base-) where-import "base" GHC.IORef as Base
− src/GHC/Int.hs 
@@ -1,4 +0,0 @@-module GHC.Int (-  module Base-) where-import "base" GHC.Int as Base
− src/GHC/List.hs 
@@ -1,4 +0,0 @@-module GHC.List (-  module Base-) where-import "base" GHC.List as Base
− src/GHC/MVar.hs 
@@ -1,4 +0,0 @@-module GHC.MVar (-  module Base-) where-import "base" GHC.MVar as Base
− src/GHC/Num.hs 
@@ -1,4 +0,0 @@-module GHC.Num (-  module Base-) where-import "base" GHC.Num as Base
− src/GHC/PArr.hs 
@@ -1,4 +0,0 @@-module GHC.PArr (-  module Base-) where-import "base" GHC.PArr as Base
− src/GHC/Pack.hs 
@@ -1,4 +0,0 @@-module GHC.Pack (-  module Base-) where-import "base" GHC.Pack as Base
− src/GHC/Ptr.hs 
@@ -1,4 +0,0 @@-module GHC.Ptr (-  module Base-) where-import "base" GHC.Ptr as Base
− src/GHC/Read.hs 
@@ -1,4 +0,0 @@-module GHC.Read (-  module Base-) where-import "base" GHC.Read as Base
− src/GHC/Real.hs 
@@ -1,4 +0,0 @@-module GHC.Real (-  module Base-) where-import "base" GHC.Real as Base
− src/GHC/ST.hs 
@@ -1,4 +0,0 @@-module GHC.ST (-  module Base-) where-import "base" GHC.ST as Base
− src/GHC/STRef.hs 
@@ -1,4 +0,0 @@-module GHC.STRef (-  module Base-) where-import "base" GHC.STRef as Base
− src/GHC/Show.hs 
@@ -1,4 +0,0 @@-module GHC.Show (-  module Base-) where-import "base" GHC.Show as Base
− src/GHC/Stable.hs 
@@ -1,4 +0,0 @@-module GHC.Stable (-  module Base-) where-import "base" GHC.Stable as Base
− src/GHC/Stack.hs 
@@ -1,8 +0,0 @@-module GHC.Stack (-#if MIN_VERSION_base(4,5,0)-  module Base-) where-import "base" GHC.Stack as Base-#else-) where-#endif
− src/GHC/Stats.hs 
@@ -1,8 +0,0 @@-module GHC.Stats (-#if MIN_VERSION_base(4,5,0)-  module Base-) where-import "base" GHC.Stats as Base-#else-) where-#endif
− src/GHC/Storable.hs 
@@ -1,4 +0,0 @@-module GHC.Storable (-  module Base-) where-import "base" GHC.Storable as Base
− src/GHC/TopHandler.hs 
@@ -1,4 +0,0 @@-module GHC.TopHandler (-  module Base-) where-import "base" GHC.TopHandler as Base
− src/GHC/Unicode.hs 
@@ -1,4 +0,0 @@-module GHC.Unicode (-  module Base-) where-import "base" GHC.Unicode as Base
− src/GHC/Weak.hs 
@@ -1,4 +0,0 @@-module GHC.Weak (-  module Base-) where-import "base" GHC.Weak as Base
− src/GHC/Word.hs 
@@ -1,4 +0,0 @@-module GHC.Word (-  module Base-) where-import "base" GHC.Word as Base
− src/Numeric.hs 
@@ -1,4 +0,0 @@-module Numeric (-  module Base-) where-import "base" Numeric as Base
− src/Prelude.hs 
@@ -1,8 +0,0 @@-module Prelude (-  module Base-) where-#if MIN_VERSION_base(4,6,0)-import "base" Prelude as Base-#else-import "base" Prelude as Base hiding (catch)-#endif
+ src/Prelude/Compat.hs view
@@ -0,0 +1,8 @@+module Prelude.Compat (+  module Base+) where+#if MIN_VERSION_base(4,6,0)+import "base" Prelude as Base+#else+import "base" Prelude as Base hiding (catch)+#endif
− src/System/CPUTime.hs 
@@ -1,4 +0,0 @@-module System.CPUTime (-  module Base-) where-import "base" System.CPUTime as Base
− src/System/Console/GetOpt.hs 
@@ -1,4 +0,0 @@-module System.Console.GetOpt (-  module Base-) where-import "base" System.Console.GetOpt as Base
− src/System/Environment.hs 
@@ -1,16 +0,0 @@-module System.Environment (-  module Base-, lookupEnv-) where--import "base" System.Environment as Base--#if !MIN_VERSION_base(4,6,0)-import Prelude--- | Return the value of the environment variable @var@, or @Nothing@ if--- there is no such value.------ For POSIX users, this is equivalent to 'System.Posix.Env.getEnv'.-lookupEnv :: String -> IO (Maybe String)-lookupEnv k = lookup k `fmap` getEnvironment-#endif
+ src/System/Environment/Compat.hs view
@@ -0,0 +1,16 @@+module System.Environment.Compat (+  module Base+, lookupEnv+) where++import "base" System.Environment as Base++#if !MIN_VERSION_base(4,6,0)+import Prelude+-- | Return the value of the environment variable @var@, or @Nothing@ if+-- there is no such value.+--+-- For POSIX users, this is equivalent to 'System.Posix.Env.getEnv'.+lookupEnv :: String -> IO (Maybe String)+lookupEnv k = lookup k `fmap` getEnvironment+#endif
− src/System/Exit.hs 
@@ -1,4 +0,0 @@-module System.Exit (-  module Base-) where-import "base" System.Exit as Base
− src/System/IO.hs 
@@ -1,4 +0,0 @@-module System.IO (-  module Base-) where-import "base" System.IO as Base
− src/System/IO/Error.hs 
@@ -1,4 +0,0 @@-module System.IO.Error (-  module Base-) where-import "base" System.IO.Error as Base
− src/System/IO/Unsafe.hs 
@@ -1,4 +0,0 @@-module System.IO.Unsafe (-  module Base-) where-import "base" System.IO.Unsafe as Base
− src/System/Info.hs 
@@ -1,4 +0,0 @@-module System.Info (-  module Base-) where-import "base" System.Info as Base
− src/System/Mem.hs 
@@ -1,4 +0,0 @@-module System.Mem (-  module Base-) where-import "base" System.Mem as Base
− src/System/Mem/StableName.hs 
@@ -1,4 +0,0 @@-module System.Mem.StableName (-  module Base-) where-import "base" System.Mem.StableName as Base
− src/System/Mem/Weak.hs 
@@ -1,4 +0,0 @@-module System.Mem.Weak (-  module Base-) where-import "base" System.Mem.Weak as Base
− src/System/Posix/Internals.hs 
@@ -1,4 +0,0 @@-module System.Posix.Internals (-  module Base-) where-import "base" System.Posix.Internals as Base
− src/System/Posix/Types.hs 
@@ -1,4 +0,0 @@-module System.Posix.Types (-  module Base-) where-import "base" System.Posix.Types as Base
− src/System/Timeout.hs 
@@ -1,4 +0,0 @@-module System.Timeout (-  module Base-) where-import "base" System.Timeout as Base
− src/Text/ParserCombinators/ReadP.hs 
@@ -1,4 +0,0 @@-module Text.ParserCombinators.ReadP (-  module Base-) where-import "base" Text.ParserCombinators.ReadP as Base
− src/Text/ParserCombinators/ReadPrec.hs 
@@ -1,4 +0,0 @@-module Text.ParserCombinators.ReadPrec (-  module Base-) where-import "base" Text.ParserCombinators.ReadPrec as Base
− src/Text/Printf.hs 
@@ -1,4 +0,0 @@-module Text.Printf (-  module Base-) where-import "base" Text.Printf as Base
− src/Text/Read.hs 
@@ -1,33 +0,0 @@-module Text.Read (-  module Base-, readEither-, readMaybe-) where-import "base" Text.Read as Base--#if !MIN_VERSION_base(4,6,0)-import qualified Text.ParserCombinators.ReadP as P-import Prelude---- | Parse a string using the 'Read' instance.--- Succeeds if there is exactly one valid result.--- A 'Left' value indicates a parse error.-readEither :: Read a => String -> Either String a-readEither s =-  case [ x | (x,"") <- readPrec_to_S read' minPrec s ] of-    [x] -> Right x-    []  -> Left "Prelude.read: no parse"-    _   -> Left "Prelude.read: ambiguous parse"- where-  read' =-    do x <- readPrec-       lift P.skipSpaces-       return x---- | Parse a string using the 'Read' instance.--- Succeeds if there is exactly one valid result.-readMaybe :: Read a => String -> Maybe a-readMaybe s = case readEither s of-                Left _  -> Nothing-                Right a -> Just a-#endif
+ src/Text/Read/Compat.hs view
@@ -0,0 +1,33 @@+module Text.Read.Compat (+  module Base+, readEither+, readMaybe+) where+import "base" Text.Read as Base++#if !MIN_VERSION_base(4,6,0)+import qualified Text.ParserCombinators.ReadP as P+import Prelude++-- | Parse a string using the 'Read' instance.+-- Succeeds if there is exactly one valid result.+-- A 'Left' value indicates a parse error.+readEither :: Read a => String -> Either String a+readEither s =+  case [ x | (x,"") <- readPrec_to_S read' minPrec s ] of+    [x] -> Right x+    []  -> Left "Prelude.read: no parse"+    _   -> Left "Prelude.read: ambiguous parse"+ where+  read' =+    do x <- readPrec+       lift P.skipSpaces+       return x++-- | Parse a string using the 'Read' instance.+-- Succeeds if there is exactly one valid result.+readMaybe :: Read a => String -> Maybe a+readMaybe s = case readEither s of+                Left _  -> Nothing+                Right a -> Just a+#endif
− src/Text/Read/Lex.hs 
@@ -1,4 +0,0 @@-module Text.Read.Lex (-  module Base-) where-import "base" Text.Read.Lex as Base
− src/Text/Show.hs 
@@ -1,4 +0,0 @@-module Text.Show (-  module Base-) where-import "base" Text.Show as Base
− src/Text/Show/Functions.hs 
@@ -1,4 +0,0 @@-{-# OPTIONS_GHC -fno-warn-dodgy-exports #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-module Text.Show.Functions (module Base) where-import "base" Text.Show.Functions as Base
− src/Unsafe/Coerce.hs 
@@ -1,4 +0,0 @@-module Unsafe.Coerce (-  module Base-) where-import "base" Unsafe.Coerce as Base