packages feed

base-compat 0.1.0.1 → 0.2.0

raw patch · 165 files changed

+1014/−173 lines, 165 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

- Data.Monoid.Compat: (<>) :: Monoid m => m -> m -> m
- Data.Monoid.Compat: All :: Bool -> All
- Data.Monoid.Compat: Any :: Bool -> Any
- Data.Monoid.Compat: Dual :: a -> Dual a
- Data.Monoid.Compat: Endo :: (a -> a) -> Endo a
- Data.Monoid.Compat: First :: Maybe a -> First a
- Data.Monoid.Compat: Last :: Maybe a -> Last a
- Data.Monoid.Compat: Product :: a -> Product a
- Data.Monoid.Compat: Sum :: a -> Sum a
- Data.Monoid.Compat: appEndo :: Endo a -> a -> a
- Data.Monoid.Compat: class Monoid a
- Data.Monoid.Compat: getAll :: All -> Bool
- Data.Monoid.Compat: getAny :: Any -> Bool
- Data.Monoid.Compat: getDual :: Dual a -> a
- Data.Monoid.Compat: getFirst :: First a -> Maybe a
- Data.Monoid.Compat: getLast :: Last a -> Maybe a
- Data.Monoid.Compat: getProduct :: Product a -> a
- Data.Monoid.Compat: getSum :: Sum a -> a
- Data.Monoid.Compat: mappend :: Monoid a => a -> a -> a
- Data.Monoid.Compat: mconcat :: Monoid a => [a] -> a
- Data.Monoid.Compat: mempty :: Monoid a => a
- Data.Monoid.Compat: newtype All :: *
- Data.Monoid.Compat: newtype Any :: *
- Data.Monoid.Compat: newtype Dual a :: * -> *
- Data.Monoid.Compat: newtype Endo a :: * -> *
- Data.Monoid.Compat: newtype First a :: * -> *
- Data.Monoid.Compat: newtype Last a :: * -> *
- Data.Monoid.Compat: newtype Product a :: * -> *
- Data.Monoid.Compat: newtype Sum a :: * -> *
- System.Environment.Compat: getArgs :: IO [String]
- System.Environment.Compat: getEnv :: String -> IO String
- System.Environment.Compat: getEnvironment :: IO [(String, String)]
- System.Environment.Compat: getProgName :: IO String
- System.Environment.Compat: lookupEnv :: String -> IO (Maybe String)
- System.Environment.Compat: withArgs :: [String] -> IO a -> IO a
- System.Environment.Compat: withProgName :: String -> IO a -> IO a
- Text.Read.Compat: Char :: Char -> Lexeme
- Text.Read.Compat: EOF :: Lexeme
- Text.Read.Compat: Ident :: String -> Lexeme
- Text.Read.Compat: Number :: Number -> Lexeme
- Text.Read.Compat: Punc :: String -> Lexeme
- Text.Read.Compat: String :: String -> Lexeme
- Text.Read.Compat: Symbol :: String -> Lexeme
- Text.Read.Compat: class Read a
- Text.Read.Compat: data Lexeme :: *
- Text.Read.Compat: lex :: ReadS String
- Text.Read.Compat: lexP :: ReadPrec Lexeme
- Text.Read.Compat: parens :: ReadPrec a -> ReadPrec a
- Text.Read.Compat: read :: Read a => String -> a
- Text.Read.Compat: readEither :: Read a => String -> Either String a
- Text.Read.Compat: readList :: Read a => ReadS [a]
- Text.Read.Compat: readListDefault :: Read a => ReadS [a]
- Text.Read.Compat: readListPrec :: Read a => ReadPrec [a]
- Text.Read.Compat: readListPrecDefault :: Read a => ReadPrec [a]
- Text.Read.Compat: readMaybe :: Read a => String -> Maybe a
- Text.Read.Compat: readParen :: Bool -> ReadS a -> ReadS a
- Text.Read.Compat: readPrec :: Read a => ReadPrec a
- Text.Read.Compat: reads :: Read a => ReadS a
- Text.Read.Compat: readsPrec :: Read a => Int -> ReadS a
- Text.Read.Compat: type ReadS a = String -> [(a, String)]
+ Data.Monoid: (<>) :: Monoid m => m -> m -> m
+ GHC.Exception: instance Eq ErrorCall
+ GHC.Exception: instance Ord ErrorCall
+ System.Environment: lookupEnv :: String -> IO (Maybe String)
+ Text.Read: readEither :: Read a => String -> Either String a
+ Text.Read: readMaybe :: Read a => String -> Maybe a

Files

base-compat.cabal view
@@ -1,5 +1,5 @@ name:             base-compat-version:          0.1.0.1+version:          0.2.0 license:          MIT license-file:     LICENSE copyright:        (c) 2012 Simon Hengel@@ -22,23 +22,231 @@                   * lookupEnv                   .                   * \<\>+                  .+                  * System.IO.Error.catch is not re-exported from Prelude for+                    older versions of base  source-repository head   type: git   location: https://github.com/sol/base-compat  library+  exposed: False   ghc-options:       -Wall+  build-depends:+      base == 4.*+  extensions:+      CPP+    , PackageImports+    , NoImplicitPrelude+  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   exposed-modules:-      Data.Monoid.Compat-      System.Environment.Compat-      Text.Read.Compat-  build-depends:-      base == 4.*+      -- with modifications+      Data.Monoid+      System.Environment+      Text.Read +      -- fixed warnings+      GHC.ConsoleHandler+      GHC.IO.Encoding.CodePage+      Text.Show.Functions++      -- 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.Event+      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@@ -49,7 +257,6 @@   main-is:       Spec.hs   build-depends:-      base-    , base-compat+      base-compat     , hspec >= 1.3     , setenv
+ src/Control/Applicative.hs view
@@ -0,0 +1,4 @@+module Control.Applicative (+  module Base+) where+import "base" Control.Applicative as Base
+ src/Control/Arrow.hs view
@@ -0,0 +1,4 @@+module Control.Arrow (+  module Base+) where+import "base" Control.Arrow as Base
+ src/Control/Category.hs view
@@ -0,0 +1,4 @@+module Control.Category (+  module Base+) where+import "base" Control.Category as Base
+ src/Control/Concurrent.hs view
@@ -0,0 +1,4 @@+module Control.Concurrent (+  module Base+) where+import "base" Control.Concurrent as Base
+ src/Control/Concurrent/Chan.hs view
@@ -0,0 +1,4 @@+module Control.Concurrent.Chan (+  module Base+) where+import "base" Control.Concurrent.Chan as Base
+ src/Control/Concurrent/MVar.hs view
@@ -0,0 +1,4 @@+module Control.Concurrent.MVar (+  module Base+) where+import "base" Control.Concurrent.MVar as Base
+ src/Control/Exception.hs view
@@ -0,0 +1,5 @@+module Control.Exception (+  module Base+) where+import "base" Control.Exception as Base+import GHC.Exception ()
+ src/Control/Exception/Base.hs view
@@ -0,0 +1,5 @@+module Control.Exception.Base (+  module Base+) where+import "base" Control.Exception.Base as Base+import GHC.Exception ()
+ src/Control/Monad.hs view
@@ -0,0 +1,4 @@+module Control.Monad (+  module Base+) where+import "base" Control.Monad as Base
+ src/Control/Monad/Fix.hs view
@@ -0,0 +1,4 @@+module Control.Monad.Fix (+  module Base+) where+import "base" Control.Monad.Fix as Base
+ src/Control/Monad/Instances.hs view
@@ -0,0 +1,4 @@+module Control.Monad.Instances (+  module Base+) where+import "base" Control.Monad.Instances as Base
+ src/Control/Monad/ST.hs view
@@ -0,0 +1,4 @@+module Control.Monad.ST (+  module Base+) where+import "base" Control.Monad.ST as Base
+ src/Control/Monad/ST/Lazy.hs view
@@ -0,0 +1,4 @@+module Control.Monad.ST.Lazy (+  module Base+) where+import "base" Control.Monad.ST.Lazy as Base
+ src/Control/Monad/ST/Lazy/Safe.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module Control.Monad.ST.Strict (+  module Base+) where+import "base" Control.Monad.ST.Strict as Base
+ src/Control/Monad/ST/Unsafe.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module Data.Bits (+  module Base+) where+import "base" Data.Bits as Base
+ src/Data/Bool.hs view
@@ -0,0 +1,4 @@+module Data.Bool (+  module Base+) where+import "base" Data.Bool as Base
+ src/Data/Char.hs view
@@ -0,0 +1,4 @@+module Data.Char (+  module Base+) where+import "base" Data.Char as Base
+ src/Data/Complex.hs view
@@ -0,0 +1,4 @@+module Data.Complex (+  module Base+) where+import "base" Data.Complex as Base
+ src/Data/Data.hs view
@@ -0,0 +1,4 @@+module Data.Data (+  module Base+) where+import "base" Data.Data as Base
+ src/Data/Dynamic.hs view
@@ -0,0 +1,4 @@+module Data.Dynamic (+  module Base+) where+import "base" Data.Dynamic as Base
+ src/Data/Either.hs view
@@ -0,0 +1,4 @@+module Data.Either (+  module Base+) where+import "base" Data.Either as Base
+ src/Data/Eq.hs view
@@ -0,0 +1,4 @@+module Data.Eq (+  module Base+) where+import "base" Data.Eq as Base
+ src/Data/Fixed.hs view
@@ -0,0 +1,4 @@+module Data.Fixed (+  module Base+) where+import "base" Data.Fixed as Base
+ src/Data/Foldable.hs view
@@ -0,0 +1,4 @@+module Data.Foldable (+  module Base+) where+import "base" Data.Foldable as Base
+ src/Data/Function.hs view
@@ -0,0 +1,4 @@+module Data.Function (+  module Base+) where+import "base" Data.Function as Base
+ src/Data/Functor.hs view
@@ -0,0 +1,4 @@+module Data.Functor (+  module Base+) where+import "base" Data.Functor as Base
+ src/Data/IORef.hs view
@@ -0,0 +1,4 @@+module Data.IORef (+  module Base+) where+import "base" Data.IORef as Base
+ src/Data/Int.hs view
@@ -0,0 +1,4 @@+module Data.Int (+  module Base+) where+import "base" Data.Int as Base
+ src/Data/Ix.hs view
@@ -0,0 +1,4 @@+module Data.Ix (+  module Base+) where+import "base" Data.Ix as Base
+ src/Data/List.hs view
@@ -0,0 +1,4 @@+module Data.List (+  module Base+) where+import "base" Data.List as Base
+ src/Data/Maybe.hs view
@@ -0,0 +1,4 @@+module Data.Maybe (+  module Base+) where+import "base" Data.Maybe as Base
+ src/Data/Monoid.hs view
@@ -0,0 +1,12 @@+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 
@@ -1,73 +0,0 @@-{-# LANGUAGE CPP #-}--------------------------------------------------------------------------------- |--- Module      :  Data.Monoid--- Copyright   :  (c) Andy Gill 2001,---                (c) Oregon Graduate Institute of Science and Technology, 2001--- License     :  BSD-style (see the file libraries/base/LICENSE)------ Maintainer  :  libraries@haskell.org--- Stability   :  experimental--- Portability :  portable------ A class for monoids (types with an associative binary operation that--- has an identity) with various general-purpose instances.----------------------------------------------------------------------------------module Data.Monoid.Compat (-  -- * Monoid typeclass-  Monoid(..),-  (<>),-  Dual(..),-  Endo(..),-  -- * Bool wrappers-  All(..),-  Any(..),-  -- * Num wrappers-  Sum(..),-  Product(..),-  -- * Maybe wrappers-  -- $MaybeExamples-  First(..),-  Last(..)-) where--import Data.Monoid--#if !MIN_VERSION_base(4,5,0)--- | An infix synonym for 'mappend'.-(<>) :: Monoid m => m -> m -> m-(<>) = mappend-{-# INLINE (<>) #-}-#endif---- $MaybeExamples--- To implement @find@ or @findLast@ on any 'Foldable':------ @--- findLast :: Foldable t => (a -> Bool) -> t a -> Maybe a--- findLast pred = getLast . foldMap (\x -> if pred x---                                            then Last (Just x)---                                            else Last Nothing)--- @------ Much of Data.Map's interface can be implemented with--- Data.Map.alter. Some of the rest can be implemented with a new--- @alterA@ function and either 'First' or 'Last':------ > alterA :: (Applicative f, Ord k) =>--- >           (Maybe a -> f (Maybe a)) -> k -> Map k a -> f (Map k a)--- >--- > instance Monoid a => Applicative ((,) a)  -- from Control.Applicative------ @--- insertLookupWithKey :: Ord k => (k -> v -> v -> v) -> k -> v---                     -> Map k v -> (Maybe v, Map k v)--- insertLookupWithKey combine key value =---   Arrow.first getFirst . alterA doChange key---   where---   doChange Nothing = (First Nothing, Just value)---   doChange (Just oldValue) =---     (First (Just oldValue),---      Just (combine key value oldValue))--- @
+ src/Data/Ord.hs view
@@ -0,0 +1,4 @@+module Data.Ord (+  module Base+) where+import "base" Data.Ord as Base
+ src/Data/Ratio.hs view
@@ -0,0 +1,4 @@+module Data.Ratio (+  module Base+) where+import "base" Data.Ratio as Base
+ src/Data/STRef.hs view
@@ -0,0 +1,4 @@+module Data.STRef (+  module Base+) where+import "base" Data.STRef as Base
+ src/Data/STRef/Lazy.hs view
@@ -0,0 +1,4 @@+module Data.STRef.Lazy (+  module Base+) where+import "base" Data.STRef.Lazy as Base
+ src/Data/STRef/Strict.hs view
@@ -0,0 +1,4 @@+module Data.STRef.Strict (+  module Base+) where+import "base" Data.STRef.Strict as Base
+ src/Data/String.hs view
@@ -0,0 +1,4 @@+module Data.String (+  module Base+) where+import "base" Data.String as Base
+ src/Data/Traversable.hs view
@@ -0,0 +1,4 @@+module Data.Traversable (+  module Base+) where+import "base" Data.Traversable as Base
+ src/Data/Tuple.hs view
@@ -0,0 +1,4 @@+module Data.Tuple (+  module Base+) where+import "base" Data.Tuple as Base
+ src/Data/Typeable.hs view
@@ -0,0 +1,4 @@+module Data.Typeable (+  module Base+) where+import "base" Data.Typeable as Base
+ src/Data/Typeable/Internal.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module Data.Unique (+  module Base+) where+import "base" Data.Unique as Base
+ src/Data/Version.hs view
@@ -0,0 +1,4 @@+module Data.Version (+  module Base+) where+import "base" Data.Version as Base
+ src/Data/Word.hs view
@@ -0,0 +1,4 @@+module Data.Word (+  module Base+) where+import "base" Data.Word as Base
+ src/Debug/Trace.hs view
@@ -0,0 +1,4 @@+module Debug.Trace (+  module Base+) where+import "base" Debug.Trace as Base
+ src/Foreign.hs view
@@ -0,0 +1,4 @@+module Foreign (+  module Base+) where+import "base" Foreign as Base
+ src/Foreign/C.hs view
@@ -0,0 +1,4 @@+module Foreign.C (+  module Base+) where+import "base" Foreign.C as Base
+ src/Foreign/C/Error.hs view
@@ -0,0 +1,4 @@+module Foreign.C.Error (+  module Base+) where+import "base" Foreign.C.Error as Base
+ src/Foreign/C/String.hs view
@@ -0,0 +1,4 @@+module Foreign.C.String (+  module Base+) where+import "base" Foreign.C.String as Base
+ src/Foreign/C/Types.hs view
@@ -0,0 +1,4 @@+module Foreign.C.Types (+  module Base+) where+import "base" Foreign.C.Types as Base
+ src/Foreign/Concurrent.hs view
@@ -0,0 +1,4 @@+module Foreign.Concurrent (+  module Base+) where+import "base" Foreign.Concurrent as Base
+ src/Foreign/ForeignPtr.hs view
@@ -0,0 +1,4 @@+module Foreign.ForeignPtr (+  module Base+) where+import "base" Foreign.ForeignPtr as Base
+ src/Foreign/ForeignPtr/Safe.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module Foreign.Marshal (+  module Base+) where+import "base" Foreign.Marshal as Base
+ src/Foreign/Marshal/Alloc.hs view
@@ -0,0 +1,4 @@+module Foreign.Marshal.Alloc (+  module Base+) where+import "base" Foreign.Marshal.Alloc as Base
+ src/Foreign/Marshal/Array.hs view
@@ -0,0 +1,4 @@+module Foreign.Marshal.Array (+  module Base+) where+import "base" Foreign.Marshal.Array as Base
+ src/Foreign/Marshal/Error.hs view
@@ -0,0 +1,4 @@+module Foreign.Marshal.Error (+  module Base+) where+import "base" Foreign.Marshal.Error as Base
+ src/Foreign/Marshal/Pool.hs view
@@ -0,0 +1,4 @@+module Foreign.Marshal.Pool (+  module Base+) where+import "base" Foreign.Marshal.Pool as Base
+ src/Foreign/Marshal/Safe.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module Foreign.Marshal.Utils (+  module Base+) where+import "base" Foreign.Marshal.Utils as Base
+ src/Foreign/Ptr.hs view
@@ -0,0 +1,4 @@+module Foreign.Ptr (+  module Base+) where+import "base" Foreign.Ptr as Base
+ src/Foreign/Safe.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module Foreign.StablePtr (+  module Base+) where+import "base" Foreign.StablePtr as Base
+ src/Foreign/Storable.hs view
@@ -0,0 +1,4 @@+module Foreign.Storable (+  module Base+) where+import "base" Foreign.Storable as Base
+ src/GHC/Arr.hs view
@@ -0,0 +1,4 @@+module GHC.Arr (+  module Base+) where+import "base" GHC.Arr as Base
+ src/GHC/Base.hs view
@@ -0,0 +1,4 @@+module GHC.Base (+  module Base+) where+import "base" GHC.Base as Base
+ src/GHC/Conc.hs view
@@ -0,0 +1,4 @@+module GHC.Conc (+  module Base+) where+import "base" GHC.Conc as Base
+ src/GHC/Conc/IO.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+{-# 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 view
@@ -0,0 +1,4 @@+module GHC.Constants (+  module Base+) where+import "base" GHC.Constants as Base
+ src/GHC/Desugar.hs view
@@ -0,0 +1,4 @@+module GHC.Desugar (+  module Base+) where+import "base" GHC.Desugar as Base
+ src/GHC/Enum.hs view
@@ -0,0 +1,4 @@+module GHC.Enum (+  module Base+) where+import "base" GHC.Enum as Base
+ src/GHC/Environment.hs view
@@ -0,0 +1,4 @@+module GHC.Environment (+  module Base+) where+import "base" GHC.Environment as Base
+ src/GHC/Err.hs view
@@ -0,0 +1,4 @@+module GHC.Err (+  module Base+) where+import "base" GHC.Err as Base
+ src/GHC/Event.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,12 @@+{-# LANGUAGE StandaloneDeriving #-}+{-# OPTIONS_GHC -fno-warn-orphans #-}+module GHC.Exception (+  module Base+) where+import "base" GHC.Exception as Base++#if __GLASGOW_HASKELL__ <= 706+import Prelude+deriving instance Eq ErrorCall+deriving instance Ord ErrorCall+#endif
+ src/GHC/Exts.hs view
@@ -0,0 +1,4 @@+module GHC.Exts (+  module Base+) where+import "base" GHC.Exts as Base
+ src/GHC/Fingerprint.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module GHC.Float (+  module Base+) where+import "base" GHC.Float as Base
+ src/GHC/Float/ConversionUtils.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module GHC.ForeignPtr (+  module Base+) where+import "base" GHC.ForeignPtr as Base
+ src/GHC/IO.hs view
@@ -0,0 +1,4 @@+module GHC.IO (+  module Base+) where+import "base" GHC.IO as Base
+ src/GHC/IO/Buffer.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Buffer (+  module Base+) where+import "base" GHC.IO.Buffer as Base
+ src/GHC/IO/BufferedIO.hs view
@@ -0,0 +1,4 @@+module GHC.IO.BufferedIO (+  module Base+) where+import "base" GHC.IO.BufferedIO as Base
+ src/GHC/IO/Device.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Device (+  module Base+) where+import "base" GHC.IO.Device as Base
+ src/GHC/IO/Encoding.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Encoding (+  module Base+) where+import "base" GHC.IO.Encoding as Base
+ src/GHC/IO/Encoding/CodePage.hs view
@@ -0,0 +1,4 @@+{-# 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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module GHC.IO.Encoding.Iconv (+  module Base+) where+import "base" GHC.IO.Encoding.Iconv as Base
+ src/GHC/IO/Encoding/Latin1.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Encoding.Latin1 (+  module Base+) where+import "base" GHC.IO.Encoding.Latin1 as Base
+ src/GHC/IO/Encoding/Types.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Encoding.Types (+  module Base+) where+import "base" GHC.IO.Encoding.Types as Base
+ src/GHC/IO/Encoding/UTF16.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Encoding.UTF16 (+  module Base+) where+import "base" GHC.IO.Encoding.UTF16 as Base
+ src/GHC/IO/Encoding/UTF32.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Encoding.UTF32 (+  module Base+) where+import "base" GHC.IO.Encoding.UTF32 as Base
+ src/GHC/IO/Encoding/UTF8.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Encoding.UTF8 (+  module Base+) where+import "base" GHC.IO.Encoding.UTF8 as Base
+ src/GHC/IO/Exception.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Exception (+  module Base+) where+import "base" GHC.IO.Exception as Base
+ src/GHC/IO/FD.hs view
@@ -0,0 +1,4 @@+module GHC.IO.FD (+  module Base+) where+import "base" GHC.IO.FD as Base
+ src/GHC/IO/Handle.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Handle (+  module Base+) where+import "base" GHC.IO.Handle as Base
+ src/GHC/IO/Handle/FD.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Handle.FD (+  module Base+) where+import "base" GHC.IO.Handle.FD as Base
+ src/GHC/IO/Handle/Internals.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Handle.Internals (+  module Base+) where+import "base" GHC.IO.Handle.Internals as Base
+ src/GHC/IO/Handle/Text.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Handle.Text (+  module Base+) where+import "base" GHC.IO.Handle.Text as Base
+ src/GHC/IO/Handle/Types.hs view
@@ -0,0 +1,4 @@+module GHC.IO.Handle.Types (+  module Base+) where+import "base" GHC.IO.Handle.Types as Base
+ src/GHC/IO/IOMode.hs view
@@ -0,0 +1,4 @@+module GHC.IO.IOMode (+  module Base+) where+import "base" GHC.IO.IOMode as Base
+ src/GHC/IOArray.hs view
@@ -0,0 +1,4 @@+module GHC.IOArray (+  module Base+) where+import "base" GHC.IOArray as Base
+ src/GHC/IORef.hs view
@@ -0,0 +1,4 @@+module GHC.IORef (+  module Base+) where+import "base" GHC.IORef as Base
+ src/GHC/Int.hs view
@@ -0,0 +1,4 @@+module GHC.Int (+  module Base+) where+import "base" GHC.Int as Base
+ src/GHC/List.hs view
@@ -0,0 +1,4 @@+module GHC.List (+  module Base+) where+import "base" GHC.List as Base
+ src/GHC/MVar.hs view
@@ -0,0 +1,4 @@+module GHC.MVar (+  module Base+) where+import "base" GHC.MVar as Base
+ src/GHC/Num.hs view
@@ -0,0 +1,4 @@+module GHC.Num (+  module Base+) where+import "base" GHC.Num as Base
+ src/GHC/PArr.hs view
@@ -0,0 +1,4 @@+module GHC.PArr (+  module Base+) where+import "base" GHC.PArr as Base
+ src/GHC/Pack.hs view
@@ -0,0 +1,4 @@+module GHC.Pack (+  module Base+) where+import "base" GHC.Pack as Base
+ src/GHC/Ptr.hs view
@@ -0,0 +1,4 @@+module GHC.Ptr (+  module Base+) where+import "base" GHC.Ptr as Base
+ src/GHC/Read.hs view
@@ -0,0 +1,4 @@+module GHC.Read (+  module Base+) where+import "base" GHC.Read as Base
+ src/GHC/Real.hs view
@@ -0,0 +1,4 @@+module GHC.Real (+  module Base+) where+import "base" GHC.Real as Base
+ src/GHC/ST.hs view
@@ -0,0 +1,4 @@+module GHC.ST (+  module Base+) where+import "base" GHC.ST as Base
+ src/GHC/STRef.hs view
@@ -0,0 +1,4 @@+module GHC.STRef (+  module Base+) where+import "base" GHC.STRef as Base
+ src/GHC/Show.hs view
@@ -0,0 +1,4 @@+module GHC.Show (+  module Base+) where+import "base" GHC.Show as Base
+ src/GHC/Stable.hs view
@@ -0,0 +1,4 @@+module GHC.Stable (+  module Base+) where+import "base" GHC.Stable as Base
+ src/GHC/Stack.hs view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,8 @@+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 view
@@ -0,0 +1,4 @@+module GHC.Storable (+  module Base+) where+import "base" GHC.Storable as Base
+ src/GHC/TopHandler.hs view
@@ -0,0 +1,4 @@+module GHC.TopHandler (+  module Base+) where+import "base" GHC.TopHandler as Base
+ src/GHC/Unicode.hs view
@@ -0,0 +1,4 @@+module GHC.Unicode (+  module Base+) where+import "base" GHC.Unicode as Base
+ src/GHC/Weak.hs view
@@ -0,0 +1,4 @@+module GHC.Weak (+  module Base+) where+import "base" GHC.Weak as Base
+ src/GHC/Word.hs view
@@ -0,0 +1,4 @@+module GHC.Word (+  module Base+) where+import "base" GHC.Word as Base
+ src/Numeric.hs view
@@ -0,0 +1,4 @@+module Numeric (+  module Base+) where+import "base" Numeric as Base
+ src/Prelude.hs view
@@ -0,0 +1,8 @@+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/System/CPUTime.hs view
@@ -0,0 +1,4 @@+module System.CPUTime (+  module Base+) where+import "base" System.CPUTime as Base
+ src/System/Console/GetOpt.hs view
@@ -0,0 +1,4 @@+module System.Console.GetOpt (+  module Base+) where+import "base" System.Console.GetOpt as Base
+ src/System/Environment.hs view
@@ -0,0 +1,16 @@+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 
@@ -1,22 +0,0 @@-{-# LANGUAGE CPP #-}--- | Miscellaneous information about the system environment.-module System.Environment.Compat (-  getArgs-, getProgName-, getEnv-, lookupEnv-, withArgs-, withProgName-, getEnvironment-) where--import           System.Environment--#if !MIN_VERSION_base(4,6,0)--- | 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 view
@@ -0,0 +1,4 @@+module System.Exit (+  module Base+) where+import "base" System.Exit as Base
+ src/System/IO.hs view
@@ -0,0 +1,4 @@+module System.IO (+  module Base+) where+import "base" System.IO as Base
+ src/System/IO/Error.hs view
@@ -0,0 +1,4 @@+module System.IO.Error (+  module Base+) where+import "base" System.IO.Error as Base
+ src/System/IO/Unsafe.hs view
@@ -0,0 +1,4 @@+module System.IO.Unsafe (+  module Base+) where+import "base" System.IO.Unsafe as Base
+ src/System/Info.hs view
@@ -0,0 +1,4 @@+module System.Info (+  module Base+) where+import "base" System.Info as Base
+ src/System/Mem.hs view
@@ -0,0 +1,4 @@+module System.Mem (+  module Base+) where+import "base" System.Mem as Base
+ src/System/Mem/StableName.hs view
@@ -0,0 +1,4 @@+module System.Mem.StableName (+  module Base+) where+import "base" System.Mem.StableName as Base
+ src/System/Mem/Weak.hs view
@@ -0,0 +1,4 @@+module System.Mem.Weak (+  module Base+) where+import "base" System.Mem.Weak as Base
+ src/System/Posix/Internals.hs view
@@ -0,0 +1,4 @@+module System.Posix.Internals (+  module Base+) where+import "base" System.Posix.Internals as Base
+ src/System/Posix/Types.hs view
@@ -0,0 +1,4 @@+module System.Posix.Types (+  module Base+) where+import "base" System.Posix.Types as Base
+ src/System/Timeout.hs view
@@ -0,0 +1,4 @@+module System.Timeout (+  module Base+) where+import "base" System.Timeout as Base
+ src/Text/ParserCombinators/ReadP.hs view
@@ -0,0 +1,4 @@+module Text.ParserCombinators.ReadP (+  module Base+) where+import "base" Text.ParserCombinators.ReadP as Base
+ src/Text/ParserCombinators/ReadPrec.hs view
@@ -0,0 +1,4 @@+module Text.ParserCombinators.ReadPrec (+  module Base+) where+import "base" Text.ParserCombinators.ReadPrec as Base
+ src/Text/Printf.hs view
@@ -0,0 +1,4 @@+module Text.Printf (+  module Base+) where+import "base" Text.Printf as Base
+ src/Text/Read.hs view
@@ -0,0 +1,33 @@+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 
@@ -1,70 +0,0 @@-{-# LANGUAGE CPP #-}--------------------------------------------------------------------------------- |--- Module      :  Text.Read--- Copyright   :  (c) The University of Glasgow 2001--- License     :  BSD-style (see the file libraries/base/LICENSE)------ Maintainer  :  libraries@haskell.org--- Stability   :  provisional--- Portability :  non-portable (uses Text.ParserCombinators.ReadP)------ Converting strings to values.------ The "Text.Read" library is the canonical library to import for--- 'Read'-class facilities.  For GHC only, it offers an extended and much--- improved 'Read' class, which constitutes a proposed alternative to the--- Haskell 98 'Read'.  In particular, writing parsers is easier, and--- the parsers are much more efficient.----------------------------------------------------------------------------------module Text.Read.Compat (-   -- * The 'Read' class-   Read(..),-   ReadS,--   -- * Haskell 98 functions-   reads,-   read,-   readParen,-   lex,--   -- * New parsing functions-   module Text.ParserCombinators.ReadPrec,-   Lexeme(..),-   lexP,-   parens,-   readListDefault,-   readListPrecDefault,-   readEither,-   readMaybe-) where--import Text.Read-import Text.ParserCombinators.ReadPrec--#if !MIN_VERSION_base(4,6,0)-import qualified Text.ParserCombinators.ReadP as P---- | 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 view
@@ -0,0 +1,4 @@+module Text.Read.Lex (+  module Base+) where+import "base" Text.Read.Lex as Base
+ src/Text/Show.hs view
@@ -0,0 +1,4 @@+module Text.Show (+  module Base+) where+import "base" Text.Show as Base
+ src/Text/Show/Functions.hs view
@@ -0,0 +1,4 @@+{-# 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 view
@@ -0,0 +1,4 @@+module Unsafe.Coerce (+  module Base+) where+import "base" Unsafe.Coerce as Base