Changeset 16596

Show
Ignore:
Timestamp:
06/01/07 18:19:07 (18 months ago)
Author:
audreyt
Message:

* Pugs.Internals: Massive cleanup of the import/re-export directives

for better readability/maintainability; no semantic changes.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Internals.hs

    r15765 r16596  
    1 {-# OPTIONS_GHC -fglasgow-exts -fno-warn-orphans -fno-full-laziness -fno-cse -fno-warn-deprecations -fallow-undecidable-instances -fallow-overlapping-instances -funbox-strict-fields -fparr #-} 
     1{-# OPTIONS_GHC -fno-warn-orphans -fallow-undecidable-instances -fallow-overlapping-instances -fparr #-} 
    22 
    33{-| 
    … …  
    1414-} 
    1515 
    16 module Pugs.Internals ( 
    17     module Pugs.Internals.Cast, 
    18     module Pugs.Internals.ID, 
    19     module Pugs.Internals.String, 
    20     module Pugs.Internals.Monads, 
    21     module Pugs.Internals.Global, 
     16module Pugs.Internals ( module X ) where 
    2217 
    23     module Control.Concurrent, 
    24     module Control.Concurrent.STM, 
    25     module Control.Exception, 
    26     module Control.Monad, 
    27     module Control.Monad.Error, 
    28     module Control.Monad.Writer, 
    29     module Control.Monad.Reader, 
    30     module Control.Monad.State, 
    31     module Control.Monad.Trans, 
    32     module Control.Monad.Fix, 
    33     module Control.Monad.Identity, 
    34     module Data.Array, 
    35     module Data.Bits, 
    36     module Data.Char, 
    37     module Data.Complex, 
    38     module Data.ByteString, 
    39     module Data.Dynamic, 
    40     module Data.Generics, 
    41     module Data.Either, 
    42     module Data.IntMap, 
    43     module Data.IORef, 
    44     module Data.List, 
    45     module Data.Map, 
    46     module Data.Maybe, 
    47     module Data.Monoid, 
    48     module Data.Ratio, 
    49     module Data.Set, 
    50     module Data.Sequence, 
    51     module Data.Tree, 
    52     module Data.Unique, 
    53     module Data.Word, 
    54     module Debug.Trace, 
    55     module GHC.Conc, 
    56     module GHC.Exts, 
    57     module GHC.PArr, 
    58     module Network, 
    59     module Numeric, 
    60     module Pugs.Compat, 
    61     module RRegex, 
    62     module RRegex.Syntax, 
    63     module System.Cmd, 
    64     module System.Directory, 
    65     module System.Environment, 
    66     module System.Exit, 
    67     module System.IO, 
    68     module System.IO.Error, 
    69     module System.IO.Unsafe, 
    70     module System.Mem, 
    71     module System.Mem.Weak, 
    72     module System.Process, 
    73     module System.Random, 
    74     module System.Time 
    75 ) where 
     18import Pugs.Internals.Cast    as X  
     19import Pugs.Internals.Global  as X  
     20import Pugs.Internals.ID      as X  
     21import Pugs.Internals.Monads  as X  
     22import Pugs.Internals.String  as X  
     23import Pugs.Compat            as X  
    7624 
    77 import Pugs.Internals.Cast 
    78 import Pugs.Internals.ID 
    79 import Pugs.Internals.String 
    80 import Pugs.Internals.Monads 
    81 import Pugs.Internals.Global 
    82  
    83 import Pugs.Compat 
    84 import RRegex 
    85 import RRegex.Syntax 
    86 import Data.Char 
    87 import Data.IORef 
    88 import Data.Dynamic hiding (cast) 
    89 import Data.Generics (Data) 
    90 import Data.Array (elems) 
    91 import Network 
    92 import Numeric (showHex) 
    93 import System.Environment (getArgs, withArgs, getProgName) 
    94 import System.Random hiding (split) 
    95 import System.Exit 
    96 import System.Time 
    97 import System.Cmd 
    98 import System.Process 
    99 import System.IO ( 
    100     Handle, stdin, stdout, hClose, hGetLine, hGetChar, hGetContents, 
    101     openFile, hSetBinaryMode, hPutStr, hPutStrLn, IOMode(..), stderr, SeekMode(..), 
    102     hSetBuffering, BufferMode(..), hIsTerminalDevice, hFlush, hPrint, isEOF, 
    103     hSeek, hTell, hIsOpen, hIsClosed, hIsReadable, hIsWritable, hIsSeekable, 
    104     ) 
    105 import System.IO.Unsafe 
    106 import System.IO.Error (ioeGetErrorString, isUserError) 
    107 import System.Mem 
    108 import System.Mem.Weak 
    109 import System.Directory (Permissions(..), getPermissions, getTemporaryDirectory, createDirectory, removeDirectory, removeFile, getDirectoryContents, getModificationTime) 
    110 import Control.Exception (catchJust, errorCalls, Exception(..)) 
    111 import Control.Monad (replicateM, forM, forM_, MonadPlus(..), msum, liftM2, liftM3, guard, foldM, unless, liftM, filterM, join, when) 
    112 import Control.Monad.Identity (Identity(..)) 
    113 import Control.Monad.State (MonadState(..), gets, modify) 
    114 import Control.Monad.Writer (MonadWriter(..), WriterT(..), censor) 
    115 import Control.Monad.Reader (MonadReader(..), ReaderT(..), asks) 
    116 import Control.Monad.Error (MonadError(..), ErrorT(..), Error(..)) 
    117 import Control.Monad.Trans (MonadIO(..), MonadTrans(..)) 
    118 import Control.Monad.Fix (fix) 
    119 import Control.Concurrent 
    120 import Control.Concurrent.STM 
    121 import Data.Bits hiding (shift) 
    122 import Data.Maybe 
    123 import Data.Monoid 
    124 import Data.Either 
    125 import Data.List ( 
    126     (\\), find, genericLength, insert, sortBy, intersperse, 
    127     partition, group, sort, genericReplicate, isPrefixOf, isSuffixOf, 
    128     genericTake, genericDrop, unfoldr, nub, nubBy, transpose, delete, foldl' 
    129     ) 
    130 import Data.Unique 
    131 import Data.Ratio 
    132 import Data.Word hiding (Word) 
    133 import Data.Complex 
    134 import Data.ByteString (ByteString) 
    135 import Data.Tree 
    136 import qualified Data.Typeable as Typeable 
    137 import Data.Set (Set) 
    138 import Data.Map (Map) 
    139 import Data.Sequence (Seq, singleton) 
    140 import Data.IntMap (IntMap) 
    141 import Debug.Trace 
    142 import GHC.PArr 
    143 import GHC.Conc (unsafeIOToSTM) 
    144 import GHC.Exts (unsafeCoerce#, Word(W#), Word#) 
    145 import qualified Data.Sequence as Seq 
    146  
    147 import qualified UTF8 
    148 import qualified Foreign as Foreign 
     25import Control.Concurrent     as X  
     26import Control.Concurrent.STM as X  
     27import Control.Exception      as X (catchJust, errorCalls, Exception(..)) 
     28import Control.Monad          as X (replicateM, forM, forM_, MonadPlus(..), msum, liftM2, liftM3, guard, foldM, unless, liftM, filterM, join, when) 
     29import Control.Monad.Error    as X (MonadError(..), ErrorT(..), Error(..)) 
     30import Control.Monad.Fix      as X (fix) 
     31import Control.Monad.Identity as X (Identity(..)) 
     32import Control.Monad.Reader   as X (MonadReader(..), ReaderT(..), asks) 
     33import Control.Monad.State    as X (MonadState(..), gets, modify) 
     34import Control.Monad.Trans    as X (MonadIO(..), MonadTrans(..)) 
     35import Control.Monad.Writer   as X (MonadWriter(..), WriterT(..), censor) 
     36import Data.Array             as X (elems) 
     37import Data.Bits              as X hiding (shift) 
     38import Data.ByteString        as X (ByteString) 
     39import Data.Char              as X  
     40import Data.Complex           as X  
     41import Data.Dynamic           as X hiding (cast) 
     42import Data.Either            as X  
     43import Data.Generics          as X (Data) 
     44import Data.IORef             as X  
     45import Data.IntMap            as X (IntMap) 
     46import Data.List              as X ( (\\), find, genericLength, insert, sortBy, intersperse, partition, group, sort, genericReplicate, isPrefixOf, isSuffixOf, genericTake, genericDrop, unfoldr, nub, nubBy, transpose, delete, foldl') 
     47import Data.Map               as X (Map) 
     48import Data.Maybe             as X  
     49import Data.Monoid            as X  
     50import Data.Ratio             as X  
     51import Data.Sequence          as X (Seq, singleton) 
     52import Data.Set               as X (Set) 
     53import Data.Tree              as X  
     54import Data.Unique            as X  
     55import Data.Word              as X hiding (Word) 
     56import Debug.Trace            as X  
     57import GHC.Conc               as X (unsafeIOToSTM) 
     58import GHC.Exts               as X (unsafeCoerce#, Word(W#), Word#) 
     59import GHC.PArr               as X  
     60import Network                as X  
     61import Numeric                as X (showHex) 
     62import RRegex                 as X  
     63import RRegex.Syntax          as X  
     64import System.Cmd             as X  
     65import System.Directory       as X (Permissions(..), getPermissions, getTemporaryDirectory, createDirectory, removeDirectory, removeFile, getDirectoryContents, getModificationTime) 
     66import System.Environment     as X (getArgs, withArgs, getProgName) 
     67import System.Exit            as X  
     68import System.IO              as X ( Handle, stdin, stdout, hClose, hGetLine, hGetChar, hGetContents, openFile, hSetBinaryMode, hPutStr, hPutStrLn, IOMode(..), stderr, SeekMode(..), hSetBuffering, BufferMode(..), hIsTerminalDevice, hFlush, hPrint, isEOF, hSeek, hTell, hIsOpen, hIsClosed, hIsReadable, hIsWritable, hIsSeekable) 
     69import System.IO.Error        as X (ioeGetErrorString, isUserError) 
     70import System.IO.Unsafe       as X  
     71import System.Mem             as X  
     72import System.Mem.Weak        as X  
     73import System.Process         as X  
     74import System.Random          as X hiding (split) 
     75import System.Time            as X  
    14976 
    15077-- Instances.