[project @ 2002-08-12 10:13:09 by simonmar]
authorsimonmar <unknown>
Mon, 12 Aug 2002 10:13:10 +0000 (10:13 +0000)
committersimonmar <unknown>
Mon, 12 Aug 2002 10:13:10 +0000 (10:13 +0000)
cut-n-paste the export lists from the H98 Libraries Report, to make
these modules robust w.r.t. changes to the hierarchical libraries.

15 files changed:
Array.hs
CPUTime.hs
Char.hs
Complex.hs
Directory.hs
IO.hs
Ix.hs
List.hs
Locale.hs
Maybe.hs
Monad.hs
Random.hs
Ratio.hs
System.hs
Time.hs

index 7c8624f..53cfc1b 100644 (file)
--- a/Array.hs
+++ b/Array.hs
@@ -1,5 +1,8 @@
 module Array (
-    module Data.Array
+    module Ix,  -- export all of Ix for convenience
+    Array, array, listArray, (!), bounds, indices, elems, assocs, 
+    accumArray, (//), accum, ixmap
   ) where
 
+import Ix
 import Data.Array
index 43e9c13..9b5ab6f 100644 (file)
@@ -1,5 +1,5 @@
 module CPUTime (
-    module System.CPUTime
+    getCPUTime, cpuTimePrecision 
   ) where
 
 import System.CPUTime
diff --git a/Char.hs b/Char.hs
index 066ff49..b82c7f0 100644 (file)
--- a/Char.hs
+++ b/Char.hs
@@ -1,5 +1,13 @@
 module Char (
-    module Data.Char
+    isAscii, isLatin1, isControl, isPrint, isSpace, isUpper, isLower, 
+    isAlpha, isDigit, isOctDigit, isHexDigit, isAlphaNum, 
+    digitToInt, intToDigit,
+    toUpper, toLower,
+    ord, chr,
+    readLitChar, showLitChar, lexLitChar,
+
+-- ...and what the Prelude exports
+    Char, String
   ) where
 
 import Data.Char
index 918ca00..a4ba08b 100644 (file)
@@ -1,5 +1,6 @@
 module Complex (
-    module Data.Complex
+    Complex((:+)), realPart, imagPart, conjugate, 
+    mkPolar, cis, polar, magnitude, phase 
   ) where
 
 import Data.Complex
index 28acfc9..aa488a0 100644 (file)
@@ -1,5 +1,11 @@
 module Directory (
-    module System.Directory
+    Permissions( Permissions, readable, writable, executable, searchable ), 
+    createDirectory, removeDirectory, removeFile, 
+    renameDirectory, renameFile, getDirectoryContents,
+    getCurrentDirectory, setCurrentDirectory,
+    doesFileExist, doesDirectoryExist,
+    getPermissions, setPermissions,
+    getModificationTime 
   ) where
 
 import System.Directory
diff --git a/IO.hs b/IO.hs
index 84305b2..fb0f083 100644 (file)
--- a/IO.hs
+++ b/IO.hs
@@ -1,10 +1,25 @@
-{-# OPTIONS -cpp #-}
 module IO (
-    module System.IO
+    Handle, HandlePosn,
+    IOMode(ReadMode,WriteMode,AppendMode,ReadWriteMode),
+    BufferMode(NoBuffering,LineBuffering,BlockBuffering),
+    SeekMode(AbsoluteSeek,RelativeSeek,SeekFromEnd),
+    stdin, stdout, stderr, 
+    openFile, hClose, hFileSize, hIsEOF, isEOF,
+    hSetBuffering, hGetBuffering, hFlush, 
+    hGetPosn, hSetPosn, hSeek, 
+    hWaitForInput, hReady, hGetChar, hGetLine, hLookAhead, hGetContents, 
+    hPutChar, hPutStr, hPutStrLn, hPrint,
+    hIsOpen, hIsClosed, hIsReadable, hIsWritable, hIsSeekable,
+    isAlreadyExistsError, isDoesNotExistError, isAlreadyInUseError, 
+    isFullError, isEOFError,
+    isIllegalOperation, isPermissionError, isUserError, 
+    ioeGetErrorString, ioeGetHandle, ioeGetFileName,
+    try, bracket, bracket_,
+
+    -- ...and what the Prelude exports
+    IO, FilePath, IOError, ioError, userError, catch, interact,
+    putChar, putStr, putStrLn, print, getChar, getLine, getContents,
+    readFile, writeFile, appendFile, readIO, readLn
   ) where
 
-#ifdef __HUGS__
-import System.IO hiding ( fixIO )
-#else
-import System.IO hiding ( fixIO, hGetBuf, hPutBuf )
-#endif
+import System.IO
diff --git a/Ix.hs b/Ix.hs
index 5ef27de..a83a8db 100644 (file)
--- a/Ix.hs
+++ b/Ix.hs
@@ -1,5 +1,5 @@
 module Ix (
-    module Data.Ix
+    Ix(range, index, inRange), rangeSize
   ) where
 
 import Data.Ix
diff --git a/List.hs b/List.hs
index 0462a75..ca3b51f 100644 (file)
--- a/List.hs
+++ b/List.hs
@@ -1,5 +1,29 @@
 module List (
-    module Data.List
+    elemIndex, elemIndices,
+    find, findIndex, findIndices,
+    nub, nubBy, delete, deleteBy, (\\), deleteFirstsBy,
+    union, unionBy, intersect, intersectBy,
+    intersperse, transpose, partition, group, groupBy,
+    inits, tails, isPrefixOf, isSuffixOf,
+    mapAccumL, mapAccumR,
+    sort, sortBy, insert, insertBy, maximumBy, minimumBy,
+    genericLength, genericTake, genericDrop,
+    genericSplitAt, genericIndex, genericReplicate,
+    zip4, zip5, zip6, zip7,
+    zipWith4, zipWith5, zipWith6, zipWith7,
+    unzip4, unzip5, unzip6, unzip7, unfoldr,
+
+    -- ...and what the Prelude exports
+    -- []((:), []), -- This is built-in syntax
+    map, (++), concat, filter,
+    head, last, tail, init, null, length, (!!),
+    foldl, foldl1, scanl, scanl1, foldr, foldr1, scanr, scanr1,
+    iterate, repeat, replicate, cycle,
+    take, drop, splitAt, takeWhile, dropWhile, span, break,
+    lines, words, unlines, unwords, reverse, and, or,
+    any, all, elem, notElem, lookup,
+    sum, product, maximum, minimum, concatMap, 
+    zip, zip3, zipWith, zipWith3, unzip, unzip3
   ) where
 
 import Data.List hiding (foldl')
index e771a86..bafc22c 100644 (file)
--- a/Locale.hs
+++ b/Locale.hs
@@ -1,5 +1,5 @@
 module Locale (
-    module System.Locale
+    TimeLocale(..), defaultTimeLocale
   ) where
 
 import System.Locale ( 
index a907782..be150fe 100644 (file)
--- a/Maybe.hs
+++ b/Maybe.hs
@@ -1,5 +1,11 @@
 module Maybe (
-    module Data.Maybe
+    isJust, isNothing,
+    fromJust, fromMaybe, listToMaybe, maybeToList,
+    catMaybes, mapMaybe,
+
+    -- ...and what the Prelude exports
+    Maybe(Nothing, Just),
+    maybe
   ) where
 
 import Data.Maybe
index 4f68fe4..9115f7b 100644 (file)
--- a/Monad.hs
+++ b/Monad.hs
@@ -1,5 +1,14 @@
 module Monad (
-    module Control.Monad
+    MonadPlus(mzero, mplus),
+    join, guard, when, unless, ap,
+    msum,
+    filterM, mapAndUnzipM, zipWithM, zipWithM_, foldM, 
+    liftM, liftM2, liftM3, liftM4, liftM5,
+
+    -- ...and what the Prelude exports
+    Monad((>>=), (>>), return, fail),
+    Functor(fmap),
+    mapM, mapM_, sequence, sequence_, (=<<), 
   ) where
 
 import Control.Monad
index f1659fc..f857f08 100644 (file)
--- a/Random.hs
+++ b/Random.hs
@@ -1,5 +1,8 @@
 module Random (
-  module System.Random
+   RandomGen(next, split, genRange),
+   StdGen, mkStdGen,
+   Random( random,   randomR, randoms,  randomRs, randomIO, randomRIO ),
+   getStdRandom, getStdGen, setStdGen, newStdGen
   ) where
 
 import System.Random
index 4b1d0e7..f843d6d 100644 (file)
--- a/Ratio.hs
+++ b/Ratio.hs
@@ -1,5 +1,5 @@
 module Ratio (
-    module Data.Ratio
+    Ratio, Rational, (%), numerator, denominator, approxRational
   ) where
 
 import Data.Ratio
index a43572e..6b1db12 100644 (file)
--- a/System.hs
+++ b/System.hs
@@ -1,7 +1,6 @@
 module System (
-    module System.Exit,
-    module System.Environment,
-    module System.Cmd
+    ExitCode(ExitSuccess,ExitFailure),
+    getArgs, getProgName, getEnv, system, exitWith, exitFailure
   ) where
 
 import System.Exit
diff --git a/Time.hs b/Time.hs
index e17cdd4..e234267 100644 (file)
--- a/Time.hs
+++ b/Time.hs
@@ -1,5 +1,15 @@
 module Time (
-    module System.Time
+    ClockTime, 
+    Month(January,February,March,April,May,June,
+          July,August,September,October,November,December),
+    Day(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday),
+    CalendarTime(CalendarTime, ctYear, ctMonth, ctDay, ctHour, ctMin,
+                ctPicosec, ctWDay, ctYDay, ctTZName, ctTZ, ctIsDST),
+    TimeDiff(TimeDiff, tdYear, tdMonth, tdDay, tdHour,
+            tdMin, tdSec, tdPicosec),
+    getClockTime, addToClockTime, diffClockTimes,
+    toCalendarTime, toUTCTime, toClockTime,
+    calendarTimeToString, formatCalendarTime 
   ) where
 
 import System.Time