Add export lists to some modules.
authorDavid Feuer <david.feuer@gmail.com>
Sun, 28 Dec 2014 01:53:37 +0000 (20:53 -0500)
committerEdward Z. Yang <ezyang@cs.stanford.edu>
Sun, 28 Dec 2014 01:53:37 +0000 (20:53 -0500)
Summary:
This makes it easier to see what is exported, and allows us to
add non-exported top-level names.

Reviewers: hvr, austin, ezyang

Reviewed By: ezyang

Subscribers: ezyang, carter, thomie

Projects: #ghc

Differential Revision: https://phabricator.haskell.org/D551

GHC Trac Issues: #9852

libraries/base/Control/Category.hs
libraries/base/Control/Monad/Zip.hs
libraries/base/GHC/Base.hs
libraries/base/GHC/Num.hs
libraries/base/GHC/Real.hs
libraries/base/System/Posix/Internals.hs
libraries/ghc-prim/GHC/Classes.hs

index ab7740b..d21d4f9 100644 (file)
@@ -15,7 +15,7 @@
 
 -- http://ghc.haskell.org/trac/ghc/ticket/1773
 
-module Control.Category where
+module Control.Category ((<<<), (>>>), Category(..)) where
 
 import qualified GHC.Base (id,(.))
 import Data.Type.Coercion
index df096b1..b994c47 100644 (file)
@@ -15,7 +15,7 @@
 --
 -----------------------------------------------------------------------------
 
-module Control.Monad.Zip where
+module Control.Monad.Zip (MonadZip(..)) where
 
 import Control.Monad (liftM)
 
index 44085a2..e3d247e 100644 (file)
@@ -93,17 +93,28 @@ Other Prelude modules are much easier with fewer complex dependencies.
 #include "MachDeps.h"
 
 module GHC.Base
-        (
-        module GHC.Base,
-        module GHC.Classes,
-        module GHC.CString,
-        module GHC.Magic,
-        module GHC.Types,
-        module GHC.Prim,        -- Re-export GHC.Prim and [boot] GHC.Err,
-                                -- to avoid lots of people having to
-        module GHC.Err          -- import it explicitly
-  )
-        where
+       (
+       module GHC.Classes,
+       module GHC.CString,
+       module GHC.Magic,
+       module GHC.Types,
+       module GHC.Prim,        -- Re-export GHC.Prim and [boot] GHC.Err,
+                               -- to avoid lots of people having to
+       module GHC.Err,         -- import it explicitly
+
+
+       Alternative(..), Applicative(..), Functor(..), Maybe(..), Monad(..),
+       MonadPlus(..), Monoid(..), Opaque(..), String,
+
+
+       ($), ($!), (++), (.), (<**>), (=<<), ap, asTypeOf, assert, augment,
+       bindIO, breakpoint, breakpointCond, build, const, divInt, divModInt,
+       divModInt#, eqString, flip, foldr, getTag, iShiftL#, iShiftRA#,
+       iShiftRL#, id, join, liftA, liftA2, liftA3, liftM, liftM2, liftM3,
+       liftM4, liftM5, map, mapFB, mapM, maxInt, minInt, modInt, ord,
+       otherwise, quotInt, quotRemInt, remInt, returnIO, sequence, shiftL#,
+       shiftRL#, thenIO, unIO, unsafeChr, until, when
+       ) where
 
 import GHC.Types
 import GHC.Classes
index 5d46dac..0b331fc 100644 (file)
 --
 -----------------------------------------------------------------------------
 
-module GHC.Num (module GHC.Num, module GHC.Integer) where
+module GHC.Num
+     (
+       module GHC.Integer
+     , Num(..)
+     , subtract
+     ) where
 
 import GHC.Base
 import GHC.Integer
index c301325..656a22d 100644 (file)
 --
 -----------------------------------------------------------------------------
 
-module GHC.Real where
+module GHC.Real
+     (
+     Fractional(..), Integral(..), Ratio(..), Real(..), RealFrac(..),
+
+     Rational,
+
+     (%), (^), (^%^), (^^), (^^%^^), denominator, divZeroError, even,
+     fromIntegral, gcd, gcdInt', gcdWord', infinity, integralEnumFrom,
+     integralEnumFromThen, integralEnumFromThenTo, integralEnumFromTo, lcm,
+     notANumber, numerator, numericEnumFrom, numericEnumFromThen,
+     numericEnumFromThenTo, numericEnumFromTo, odd, overflowError, ratioPrec,
+     ratioPrec1, ratioZeroDenominatorError, realToFrac, reduce, showSigned
+     ) where
 
 import GHC.Base
 import GHC.Num
index c49e613..e2e32c3 100644 (file)
 --
 -----------------------------------------------------------------------------
 
-module System.Posix.Internals where
+module System.Posix.Internals
+     (
+     CFLock, CFilePath, CGroup, CLconv, CPasswd, CSigaction, CSigset, CStat,
+     CTermios, CTm, CTms, CUtimbuf, CUtsname, FD,
+
+     c_access, c_chmod, c_close, c_creat, c_dup, c_dup2, c_fcntl_lock,
+     c_fcntl_read, c_fcntl_write, c_fork, c_fstat, c_ftruncate, c_getpid,
+     c_isatty, c_lflag, c_link, c_lseek, c_mkfifo, c_open, c_pipe, c_read,
+     c_s_isblk, c_s_ischr, c_s_isdir, c_s_isfifo, c_s_isreg, c_s_issock,
+     c_safe_open, c_safe_read, c_safe_write, c_sigaddset, c_sigemptyset,
+     c_sigprocmask, c_stat, c_tcgetattr, c_tcsetattr, c_umask, c_unlink,
+     c_utime, c_waitpid, c_write, const_echo, const_f_getfl, const_f_setfd,
+     const_f_setfl, const_fd_cloexec, const_icanon, const_sig_block,
+     const_sig_setmask, const_sigttou, const_tcsanow, const_vmin, const_vtime,
+     dEFAULT_BUFFER_SIZE, fdFileSize, fdGetMode, fdStat, fdType, fileType,
+     getEcho, get_saved_termios, ioe_unknownfiletype, lstat, newFilePath,
+     o_APPEND, o_BINARY, o_CREAT, o_EXCL, o_NOCTTY, o_NONBLOCK, o_RDONLY,
+     o_RDWR, o_TRUNC, o_WRONLY, peekFilePath, peekFilePathLen, poke_c_lflag,
+     ptr_c_cc, puts, sEEK_CUR, sEEK_END, sEEK_SET, s_isblk, s_ischr, s_isdir,
+     s_isfifo, s_isreg, s_issock, setCloseOnExec, setCooked, setEcho,
+     setNonBlockingFD, set_saved_termios, sizeof_sigset_t, sizeof_stat,
+     sizeof_termios, st_dev, st_ino, st_mode, st_mtime, st_size, statGetType,
+     tcSetAttr, withFilePath
+     ) where
 
 #include "HsBaseConfig.h"
 
@@ -42,7 +65,7 @@ import GHC.Real
 import GHC.IO
 import GHC.IO.IOMode
 import GHC.IO.Exception
-import GHC.IO.Device
+import GHC.IO.Device hiding (getEcho, setEcho)
 #ifndef mingw32_HOST_OS
 import {-# SOURCE #-} GHC.IO.Encoding (getFileSystemEncoding)
 import qualified GHC.Foreign as GHC
index 9028f6e..3f09ff7 100644 (file)
 --
 -----------------------------------------------------------------------------
 
-module GHC.Classes where
+module GHC.Classes
+      (
+        (&&)
+      , (||)
+      , compareInt
+      , compareInt#
+      , divInt#
+      , eqInt
+      , geInt
+      , gtInt
+      , leInt
+      , ltInt
+      , modInt#
+      , neInt
+      , not
+      , Eq(..)
+      , Ord(..)
+      ) where
 
 -- GHC.Magic is used in some derived instances
 import GHC.Magic ()