Update all imports to use the Haskell 2010 hierarchical names
authorSimon Marlow <marlowsd@gmail.com>
Wed, 13 Oct 2010 10:00:43 +0000 (10:00 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 13 Oct 2010 10:00:43 +0000 (10:00 +0000)
204 files changed:
distributed/chain/chain.hs
distributed/names/names.hs
distributed/place/place.hs
gc/cacheprof/Main.hs
gc/circsim/Main.lhs
gc/constraints/Main.hs
gc/fibheaps/Main.lhs
gc/fulsom/Csg.hs
gc/fulsom/Main.hs
gc/fulsom/Matrix.hs
gc/happy/GenUtils.lhs
gc/happy/Grammar.lhs
gc/happy/Info.lhs
gc/happy/Lexer.lhs
gc/happy/ProduceCode.lhs
gc/happy/happy.lhs
gc/lcss/Main.hs
gc/linear/Densematrix.lhs
gc/linear/Input.lhs
gc/linear/Matlib.lhs
gc/linear/linear.lhs
gc/power/Main.hs
gc/treejoin/Main.hs
imaginary/bernouilli/Main.hs
imaginary/digits-of-e1/Main.lhs
imaginary/digits-of-e2/Main.lhs
imaginary/exp3_8/Main.hs
imaginary/gen_regexps/Main.hs
imaginary/integrate/Main.hs
imaginary/paraffins/Main.hs
imaginary/primes/Main.hs
imaginary/queens/Main.hs
imaginary/rfib/Main.hs
imaginary/tak/Main.hs
imaginary/wheel-sieve1/Main.hs
imaginary/wheel-sieve2/Main.hs
imaginary/x2n1/Main.hs
nofib-analyse/GenUtils.lhs
parallel/OLD/NESL/integrate.lhs
parallel/OLD/bom/bom.hs
parallel/OLD/bom/dateNaiveAhead.hs
parallel/OLD/bom/dateNaiveChunk.hs
parallel/OLD/par001/Main.hs
parallel/OLD/soda/Main.hs
parallel/cfd/S_Array.hs
parallel/dcbm/Main.hs
parallel/gray/Data.hs
parallel/gray/Eval.hs
parallel/gray/Geometry.hs
parallel/gray/Illumination.hs
parallel/gray/Intersections.hs
parallel/gray/Main.hs
parallel/gray/Parse.hs
parallel/mandel/Mandel.lhs
parallel/matmult/MatMult.hs
parallel/warshall/warshall.hs
real/HMMS/Alignments.lhs
real/HMMS/BatchAlign.lhs
real/HMMS/HmmDensities.lhs
real/HMMS/HmmDigraphs.lhs
real/HMMS/Lists.lhs
real/HMMS/Phones.lhs
real/HMMS/PlainTextIO.lhs
real/HMMS/Pronunciations.lhs
real/HMMS/Viterbi.lhs
real/PolyGP/Create.hs
real/PolyGP/Eval.hs
real/PolyGP/Local.hs
real/PolyGP/Main.hs
real/anna/AbstractMisc.hs
real/anna/LambdaLift5.hs
real/anna/Main.hs
real/anna/MakeDomains.hs
real/anna/Parser2.hs
real/anna/ReadTable.hs
real/anna/SmallerLattice.hs
real/anna/StrictAn6.hs
real/anna/TExpr2DExpr.hs
real/anna/TypeCheck5.hs
real/bspt/Euclid.lhs
real/bspt/Rationals.lhs
real/cacheprof/Main.hs
real/ebnf2ps/Color.hs
real/ebnf2ps/CommandLine.hs
real/ebnf2ps/EbnfLayout.hs
real/ebnf2ps/Fonts.hs
real/ebnf2ps/IOSupplement.hs
real/ebnf2ps/Lexer.hs
real/ebnf2ps/Main.hs
real/fem/Basics.hs
real/fem/DB_interface.hs
real/fem/Database.hs
real/fem/Degrees.hs
real/fem/Matrix.hs
real/fem/Vector.hs
real/fluid/Asb_routs.hs
real/fluid/Chl_decomp.hs
real/fluid/Chl_method.hs
real/fluid/Chl_routs.hs
real/fluid/Jcb_method.hs
real/fluid/Min_degree.hs
real/fluid/Rhs_Asb_routs.hs
real/fluid/S_Array.hs
real/fulsom/Csg.hs
real/fulsom/Main.hs
real/fulsom/Matrix.hs
real/gamteb/InitTable.hs
real/gamteb/Main.hs
real/gamteb/Output.hs
real/gamteb/Utils.hs
real/gg/Main.hs
real/gg/Parse.hs
real/grep/Main.lhs
real/hidden/Comparing.hs
real/hidden/Cross.hs
real/hidden/Hide.hs
real/hidden/Main.hs
real/hidden/Memo.hs
real/hidden/MyIO.hs
real/hpg/Env.lhs
real/hpg/Main.lhs
real/hpg/Types.lhs
real/hpg/Utils.lhs
real/infer/Infer.hs
real/infer/Parse.hs
real/infer/Type.hs
real/linear/Densematrix.lhs
real/linear/Input.lhs
real/linear/Matlib.lhs
real/mkhprog/Main.lhs
real/parser/Main.hs
real/pic/ChargeDensity.hs
real/pic/ElecField.hs
real/pic/Main.hs
real/pic/Pic.hs
real/pic/PicType.hs
real/pic/Potential.hs
real/pic/PushParticle.hs
real/pic/Utils.hs
real/prolog/Main.hs
real/prolog/PrologData.hs
real/reptile/Auxprogfuns.hs
real/rx/src/Command.hs
real/rx/src/ExpParse.hs
real/rx/src/Heave.hs
real/rx/src/Ids.hs
real/rx/src/Lex.hs
real/scs/LinearAlgebra.hs
real/scs/Main.hs
real/scs/Parse.hs
real/scs/ParseLib.hs
real/scs/Simulate.hs
real/scs/Types.hs
real/symalg/BasicNumber.hs
real/symalg/BasicNumberApprox.hs
real/symalg/Lexer.hs
real/symalg/Main.hs
real/symalg/Print.hs
real/veritas/Build_itrm.lhs
real/veritas/Parse.lhs
smp/threads003/Main.hs
smp/threads004/Main.hs
smp/threads005/Main.hs
smp/threads006/Main.hs
spectral/atom/Main.hs
spectral/awards/Main.hs
spectral/banner/Main.hs
spectral/calendar/Main.hs
spectral/circsim/Main.lhs
spectral/clausify/Main.hs
spectral/compreals/ContinuedFractions.lhs
spectral/compreals/Main.lhs
spectral/compreals/RealReals.lhs
spectral/constraints/Main.hs
spectral/cryptarithm2/Main.hs
spectral/cryptarithm2/MonadState.lhs
spectral/eliza/Main.hs
spectral/expert/Knowledge.hs
spectral/expert/Main.hs
spectral/fft2/Complex_Vectors.lhs
spectral/fft2/Fourier.lhs
spectral/fft2/Main.lhs
spectral/fibheaps/Main.lhs
spectral/integer/Main.hs
spectral/knights/ChessSetArray.lhs
spectral/knights/Main.lhs
spectral/lambda/Main.hs
spectral/last-piece/Main.hs
spectral/lcss/Main.hs
spectral/mandel/Main.lhs
spectral/mandel/Mandel.lhs
spectral/mandel/MandelOld.lhs
spectral/mate/Board.hs
spectral/mate/Problem.hs
spectral/mate/Solution.hs
spectral/para/Main.lhs
spectral/power/Main.hs
spectral/primetest/IntLib.lhs
spectral/secretary/Main.lhs
spectral/simple/Main.hs
spectral/sorting/Sort.hs
spectral/sphere/Main.lhs
spectral/treejoin/Main.hs
spectral/triangle/Main.hs

index a5c0bf7..63f11b2 100644 (file)
@@ -1,8 +1,8 @@
 module Main(main) where
 
 import Distributed
-import System
-import IO
+import System.Environment
+import System.IO
 
        
 data Link a = Link (MVar a) (MVar ())
@@ -71,4 +71,4 @@ main =        do
 
 *Tests MVar communication, and thread creation.
 
--}     
\ No newline at end of file
+-}     
index 1bf8f66..bb12f66 100644 (file)
@@ -1,10 +1,10 @@
 module Main(main) where
 
 import Distributed
-import System
-import List
-import IO
-import Time 
+import System.Environment
+import Data.List
+import System.IO
+import System.Time 
 import PrelNum
 
 -- we are only interested in ms accuracy < 60 seconds
@@ -90,4 +90,4 @@ main =        do
 
 * Tests remote host lookup and timing.
 
--}
\ No newline at end of file
+-}
index 5d07aea..6ed5fa9 100644 (file)
@@ -1,6 +1,6 @@
 import Distributed
-import System
-import IO
+import System.Environment
+import System.IO
 
 main = do 
        putStrLn "Place Test..."
@@ -45,4 +45,4 @@ main =        do
 
 * Tests owningPE on MVars.
 
--}
\ No newline at end of file
+-}
index 18772bf..ab9998c 100644 (file)
 -}
 
 module Main ( main ) where
-import Char
-import List
-import IO
-import System
+import Data.Char
+import Data.List
+import System.IO
+import System.Environment
 import Arch_x86
 import Generics
 
index 97e3da0..6d18dd5 100644 (file)
@@ -32,8 +32,8 @@ The Circuit Simulator example
 David J. King & John O'Donnell
 January, 1998
 
-> import System
-> import List
+> import System.Environment
+> import Data.List
 
 > data BinTree a b = Cell a
 >                 | Node b (BinTree a b) (BinTree a b)
index 6481688..33f5351 100644 (file)
@@ -4,8 +4,8 @@
 -}
 
 import Prelude hiding (Maybe(Just,Nothing))
-import List
-import System
+import Data.List
+import System.Environment
 
 -----------------------------
 -- The main program
index 8c9af02..452ae6e 100644 (file)
@@ -51,8 +51,8 @@ first understand binomial queues.  See, for example, David King's
 
 > -- partain
 >module Main (main) where
->import Array
->import System
+>import Data.Array
+>import System.Environment
 
 >import Control.Monad.ST
 >import Data.Array.ST
index c0d76f9..850f47c 100644 (file)
@@ -23,10 +23,6 @@ import Matrix
 import Types
 import Interval
 
-#if __HASKELL1__ < 5
-#define realToFrac fromRealFrac
-#endif
-
 -- no is returned when there is "no" change to the csg.
 no = error ("Evaluated dead csg.")
 
index 84f4da8..b8d0585 100644 (file)
@@ -31,7 +31,7 @@ import Kolor
 import Matrix
 import Patchlevel
 
-import System
+import System.Environment
 import System.IO
 
 main = do
index 69ec768..0fd4ca8 100644 (file)
@@ -22,10 +22,6 @@ module Matrix where
 import Types
 import Interval -- not used.
 
-#if __HASKELL1__ < 5
-#define realToFrac fromRealFrac
-#endif
-
 mat4x1 :: (Fractional a) => Arr -> R3 a -> R3 a
 mat4x1 (r1,r2,r3) xyz = (x,y,z)
                           where
index 87e624c..a23fb39 100644 (file)
@@ -34,10 +34,10 @@ All the code below is understood to be in the public domain.
 >      strspace, maybestr
 >        ) where
 
-> import Char  (isAlphaNum)
-> import List
-> import Ix    ( Ix(..) )
-> import Array ( Array, listArray, array, (!) )
+> import Data.Char  (isAlphaNum)
+> import Data.List
+> import Data.Ix    ( Ix(..) )
+> import Data.Array ( Array, listArray, array, (!) )
 
 %------------------------------------------------------------------------------
 
index 17be833..03d7497 100644 (file)
@@ -24,10 +24,10 @@ Here is our mid-section datatype
 > import AttrGrammar
 > import AttrGrammarParser
 
-> import Array
-> import Char
-> import List
-> import Maybe (fromMaybe)
+> import Data.Array
+> import Data.Char
+> import Data.List
+> import Data.Maybe (fromMaybe)
 
 #ifdef DEBUG
 
index 1a7a02a..f2012dd 100644 (file)
@@ -13,8 +13,8 @@ Generating info files.
 > import qualified Set hiding ( Set )
 > import Grammar
 
-> import Array
-> import List (nub)
+> import Data.Array
+> import Data.List (nub)
 > import Data.Version          ( showVersion )
 
 Produce a file of parser information, useful for debugging the parser.
index 3294a8d..dcbc3fb 100644 (file)
@@ -11,7 +11,7 @@ The lexer.
 
 > import ParseMonad        
 
-> import Char ( isSpace, isAlphaNum, isDigit, digitToInt )
+> import Data.Char ( isSpace, isAlphaNum, isDigit, digitToInt )
 
 > data Token 
 >       = TokenInfo String TokenId
index c45c907..cd1980d 100644 (file)
@@ -14,12 +14,12 @@ The code generator.
 >                                 interleave, interleave', maybestr, 
 >                                 brack, brack' )
 
-> import Maybe                         ( isJust, isNothing )
-> import Char
-> import List
+> import Data.Maybe            ( isJust, isNothing )
+> import Data.Char
+> import Data.List
 
 > import Control.Monad.ST
-> import Array              ( Array )
+> import Data.Array         ( Array )
 > import Data.Array.ST      ( STUArray )
 > import Data.Array.Unboxed ( UArray )
 > import Data.Array.MArray
index bb40f7d..9f67cbb 100644 (file)
@@ -23,12 +23,12 @@ Path settings auto-generated by Cabal:
 > import Info (genInfoFile)
 > import Target (Target(..))
 > import System.Console.GetOpt
-> import Monad ( liftM )
-> import System
-> import Char
-> import IO
-> import Array( assocs, elems, (!) )
-> import List( nub, isSuffixOf )
+> import Control.Monad ( liftM )
+> import System.Environment
+> import Data.Char
+> import System.IO
+> import Data.Array( assocs, elems, (!) )
+> import Data.List( nub, isSuffixOf )
 > import Data.Version ( showVersion )
 
 > sCC _ x = x
index 5037cfa..922f12d 100644 (file)
@@ -13,7 +13,7 @@ optimisation here.
 
 module Main (main) where
 
-import System
+import System.Environment
 
 algb :: (Eq a) => [a] -> [a] -> [Int]
 algb xs ys
index 3100d29..841bc05 100644 (file)
@@ -46,7 +46,7 @@ module Densematrix(Matrix,Vector,
         minverse,
         veclist, matlist ) where
 
-import List (transpose)
+import Data.List (transpose)
 import Utils
 
 type Matrix    =  [[Float]]
index 67bba07..9c2afa4 100644 (file)
@@ -34,7 +34,7 @@ module Input
               mksparse,a_easy,a_hard,x1) where
 
 
-import List (transpose)
+import Data.List (transpose)
 import Matrix
 import AbsDensematrix
 import Utils 
index b1e0262..e6c18f9 100644 (file)
@@ -24,7 +24,7 @@ Notes:
 \begin{code}
 module Matlib (scale, precond, uncondition) where 
 
-import List (genericLength)
+import Data.List (genericLength)
 import Matrix
 import AbsDensematrix 
 
index 5cf4df3..88daa78 100644 (file)
@@ -72,7 +72,7 @@
 import Matrix  -- matrix implementation
 import Input   -- read gcomp data files
 import Misc    -- for timing function and takeuntil
-import System
+import System.Environment
 \end{code}
 
 AbsCg imports the actual linear system solver which uses a
index bedf5f2..8540531 100644 (file)
@@ -5,8 +5,8 @@
 
 module Main where
 
-import IO
-import Ratio
+import System.IO
+import Data.Ratio
 import System.Environment (getArgs)
 
 infixl 7 .*
index 970b19e..aee09a2 100644 (file)
@@ -4,8 +4,8 @@
     ordered, but not necessarily balanced.
 -}
 
-import System
-import Char(isSpace,isDigit,isAlpha)
+import System.Environment
+import Data.Char(isSpace,isDigit,isAlpha)
 
 data Tree e = Node Key (Tree e) (Tree e) | Leaf Key e | Empty deriving Show{-was:Text-}
 type Key = Int
index a2586a2..5886c67 100644 (file)
@@ -5,7 +5,7 @@
 -- It's not a very good test, I suspect, because it manipulates big integers,
 -- and so probably spends most of its time in GMP.  
 
-import Ratio
+import Data.Ratio
 import System.Environment
 
 -- powers = [[r^n | r<-[2..]] | n<-1..]
index 30d1e50..4282f42 100644 (file)
@@ -2,7 +2,7 @@ Compute the digits of "e" using continued fractions.
 Original program due to Dale Thurston, Aug 2001
 
 > module Main where
-> import System (getArgs)
+> import System.Environment (getArgs)
 
 > type ContFrac = [Integer]
 
index 3242bd1..7f92620 100644 (file)
@@ -2,7 +2,7 @@ Compute digits of e
 Due to John Hughes, Aug 2001
 
 > module Main where
-> import System
+> import System.Environment
 
 Here's a way to compute all the digits of e. We use the series
 
index dafd184..6474b18 100644 (file)
@@ -16,7 +16,7 @@ Haskell and here is the result using hbc.
 -}
 
 ----------------------------------------------------------
-import System
+import System.Environment
 
 infix 8 ^^^
 
index d200c38..29723dd 100644 (file)
@@ -8,7 +8,7 @@
 
 module Main (main) where
 
-import Char
+import Data.Char
 
 main = interact (("Enter a generator: " ++).show.numchars.expand.head.lines)
 
index ce8bbb9..f3f932d 100644 (file)
@@ -1,6 +1,6 @@
 module Main (integrate1D, main) where
 
-import System
+import System.Environment
 
 integrate1D :: Double -> Double -> (Double->Double) -> Double
 integrate1D l u f =
index c452f7a..53ad278 100644 (file)
@@ -6,8 +6,8 @@
  -}
 
 module Main (main) where
-import Array
-import System
+import Data.Array
+import System.Environment
 
 -- Generation of radicals
 
index 5b80387..a9f534c 100644 (file)
@@ -1,5 +1,5 @@
 
-import System
+import System.Environment
 
 suCC :: Int -> Int
 suCC x = x + 1
index 1e7cc47..b332691 100644 (file)
@@ -1,7 +1,7 @@
 -- !!! count the number of solutions to the "n queens" problem.
 -- (grabbed from LML dist)
 
-import System
+import System.Environment
 
 
 main = do
index ee10f9c..a98ebb5 100644 (file)
@@ -1,7 +1,7 @@
 -- !!! the ultra-notorious "nfib 30" does w/ Floats
 --
 module Main (main) where
-import System
+import System.Environment
 
 main = do
        [arg] <- getArgs
index 7adbc32..d8ad13b 100644 (file)
@@ -1,5 +1,5 @@
 
-import System
+import System.Environment
 
 
 -- code of unknown provenance (partain 95/01/25)
index 3d78010..7646e55 100644 (file)
@@ -2,7 +2,7 @@
 -- Colin Runciman (colin@cs.york.ac.uk); March 1996.
 -- See article "Lazy wheel sieves and spirals of primes" (to appear, JFP).
 
-import System
+import System.Environment
 
 
 data Wheel = Wheel Int [Int]
index 31a3bc9..248b894 100644 (file)
@@ -2,7 +2,7 @@
 -- Colin Runciman (colin@cs.york.ac.uk); March 1996.
 -- See article "Lazy wheel sieves and spirals of primes" (to appear, JFP).
 
-import System
+import System.Environment
 
 primes :: [Int]
 primes = spiral wheels primes squares
index 67d1211..d153469 100644 (file)
@@ -24,8 +24,8 @@ of all the other programs I thought I'd contribute at least one :-)
 -}
 
 module Main ( main ) where
-import Complex
-import System
+import Data.Complex
+import System.Environment
 
 main = do
        [arg] <- getArgs
index 6a1fb76..25a8657 100644 (file)
 >       fst3,
 >       snd3,
 >       thd3
-
-#if __HASKELL1__ < 3 || ( defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 200 )
-
->       ,Cmp(..), compare, lookup, isJust
-
-#endif
-
 >        ) where
 
-#if __HASKELL1__ >= 3 && ( !defined(__GLASGOW_HASKELL__) || __GLASGOW_HASKELL__ >= 200 )
-
-> import Ix    ( Ix(..) )
-> import Array ( listArray, array, (!) )
+> import Data.Ix    ( Ix(..) )
+> import Data.Array ( listArray, array, (!) )
 
 #define Text Show
 #define ASSOC(a,b) (a , b)
-#else
-#define ASSOC(a,b) (a := b)
-#endif
 
 %------------------------------------------------------------------------------
 
@@ -203,26 +191,6 @@ Gofer-like stuff:
 >       combine (a:r) = a : combine r
 >
 
-#if __HASKELL1__ < 3 || ( defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 200 )
-
-> lookup :: (Eq a) => a -> [(a,b)] -> Maybe b
-> lookup k env = case [ val | (key,val) <- env, k == key] of
->                [] -> Nothing
->                (val:vs) -> Just val
->
-
-> data Cmp = LT | EQ | GT
-
-> compare a b | a <  b    = LT
->             | a == b    = EQ
->             | otherwise = GT
-
-> isJust :: Maybe a -> Bool
-> isJust (Just _) = True
-> isJust _        = False
-
-#endif
-
 > assocMaybeErr :: (Eq a) => [(a,b)] -> a -> MaybeErr b String
 > assocMaybeErr env k = case [ val | (key,val) <- env, k == key] of
 >                        [] -> Failed "assoc: "
index 57eeab4..80b65d2 100644 (file)
@@ -1,4 +1,4 @@
-Time-stamp: <Fri May 17 1996 00:24:35 Stardate: [-31]7514.87 hwloidl>
+Time-stamp: <2010-10-13 10:22:35 simonmar>
 
 An adaptive algorithm for numeric integration.
 
@@ -16,7 +16,7 @@ This example code does adaptive integration of single variable functions.
 import Strategies
 #endif
 
-import System  -- for getArgs
+import System.Environment  -- for getArgs
 \end{code}
 
 % ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; %
index 2d9d951..c562728 100644 (file)
@@ -1,5 +1,5 @@
 {- 
-Time-stamp: <Wed May 22 1996 20:46:49 Stardate: [-31]7544.12 hwloidl>
+Time-stamp: <2010-10-13 10:22:48 simonmar>
 
 Source file: /local/grasp/trinder/tests/strategies/
 
@@ -29,7 +29,7 @@ import Strategies
 
 #if defined(IO13)
 import GranRandom
-import System (getArgs)
+import System.Environment (getArgs)
 #else
 import GlaExts
 import ST
index 830c190..0f1d1e8 100644 (file)
@@ -1,5 +1,5 @@
 {-  
-Time-stamp: <Wed May 22 1996 21:13:34 Stardate: [-31]7544.21 hwloidl>
+Time-stamp: <2010-10-13 10:22:41 simonmar>
 
  Module expressing Dates Bill of Material Program
        Phil Trinder 15/1/96                             
@@ -26,7 +26,7 @@ import Strategies
 
 #if defined(IO13)
 import GranRandom
-import System (getArgs)
+import System.Environment (getArgs)
 #else
 import GlaExts
 import ST
index fb76872..c40e66d 100644 (file)
@@ -1,5 +1,5 @@
 {- 
-Time-stamp: <Wed May 22 1996 22:36:55 Stardate: [-31]7544.50 hwloidl>
+Time-stamp: <2010-10-13 10:22:45 simonmar>
 
  Module expressing Dates Bill of Material Program
        Phil Trinder 18/9/95                             
@@ -22,7 +22,7 @@ import Strategies
 
 #if defined(IO13)
 import GranRandom
-import System (getArgs)
+import System.Environment (getArgs)
 #else
 import GlaExts
 import ST
index 6af5ab4..eae8855 100644 (file)
@@ -13,8 +13,8 @@ This test program is courtesy of Andrew Partridge.
 -}
 module Main(main) where
 
-import System
-import Parallel
+import System.Environment
+import Control.Parallel
 
 result x
    = par sxs ((force xs) `seq` sxs)
index d41ba22..b939c73 100644 (file)
@@ -17,7 +17,7 @@ Message-ID: <swordfish.740931041@minster.york.ac.uk>
 ------------------------------------------------------------------
 
 import Control.Parallel
-import List(transpose)--1.3
+import Data.List(transpose)--1.3
 
 main = par (unigrid d) (par (unigrid dr) (par (unigrid ur) (
        putStr (concat (parmap find hidden))
index 0898dba..83868b3 100644 (file)
@@ -15,8 +15,8 @@ module S_Array (
        )
        where
 
-import List(partition)--1.3
-import Ix--1.3
+import Data.List(partition)
+import Data.Ix
 
 import Norm 
 import Parallel
index e48b8ab..cceaca6 100644 (file)
@@ -2,7 +2,7 @@ import DCBM
 import Types
 import DbParallel
 import Fwif
-import System (getArgs)
+import System.Environment (getArgs)
 
 {-
   The following is the main body of the program. It attempts to create the database,   
index 11e12ab..e083a8b 100644 (file)
@@ -5,7 +5,7 @@
 
 module Data where
 
-import Array
+import Data.Array
 
 import CSG      
 import Geometry
index c16f16e..367942b 100644 (file)
@@ -5,7 +5,7 @@
 
 module Eval where
 
-import Array
+import Data.Array
 
 import Geometry
 import CSG
index 673c7d4..b81d7c0 100644 (file)
@@ -61,7 +61,7 @@ module Geometry
     , clampf
     ) where
 
-import List 
+import Data.List 
 
 type Coords = (Double,Double,Double)
 
index 0d2528f..68ca1f2 100644 (file)
@@ -16,9 +16,9 @@ module Illumination
 import Control.Parallel
 import Control.Parallel.Strategies (withStrategy, parBuffer,  rwhnf)
 
-import Array
-import Char(chr)
-import Maybe
+import Data.Array
+import Data.Char(chr)
+import Data.Maybe
 
 import Geometry
 import CSG
index c7fe003..2a3e308 100644 (file)
@@ -8,7 +8,7 @@ module Intersections
       quadratic
     ) where
 
-import Maybe(isJust)
+import Data.Maybe(isJust)
 
 import Construct
 import Geometry
index 8857ef1..4cd48ec 100644 (file)
@@ -7,7 +7,6 @@
 
 module Main where
 
-import System
 import System.IO
 
 import Parse
index 931655c..f219e48 100644 (file)
@@ -5,7 +5,7 @@
 
 module Parse where
 
-import Char
+import Data.Char
 import Text.ParserCombinators.Parsec hiding (token)
 
 import Data
index 0f5bafe..d0840da 100644 (file)
@@ -9,7 +9,7 @@
 \begin{code}
 {-# LANGUAGE BangPatterns,CPP #-}
 module Mandel where
-import Complex -- 1.3
+import Data.Complex -- 1.3
 import PortablePixmap
 import Control.Parallel
 import Control.Parallel.Strategies
index 9a72101..1483247 100644 (file)
@@ -22,8 +22,8 @@ JB for ghc-6.9: replaced Control.Parallel.Strategies by a workaround
         
 module Main(main) where
 
-import System
-import List
+import System.Environment
+import Data.List
 
 import ListAux
 import Control.DeepSeq
index b5e296e..065eba0 100644 (file)
@@ -16,8 +16,7 @@ to use in IFL08 paper on Parallel-Haskell-on-multicore.
 ------------------------------------------------- -}
 
 module Main(main) where
-import List
-import System
+import System.Environment
 import Data.List
 
 -- import Eden
index 101917a..49ee979 100644 (file)
@@ -17,7 +17,7 @@ the alignment data.
 
 > import Phones
 > import HmmDigraphs
-> import Char(isSpace)--1.3
+> import Data.Char(isSpace)--1.3
 
 \end{haskell}
 
index e1974f6..27a51c1 100644 (file)
@@ -43,19 +43,13 @@ They were documented in earlier chapters (Part~\ref{part:modules}).
 > import HmmDensities
 > import Viterbi
 > import HmmConstants
->#if __HASKELL1__ >= 3
-> import System        ( getArgs )
-> import Array
-> import IO
+> import System.Environment
+> import Data.Array
+> import System.IO
 > type Assoc a b = (a,b)
 > (=:) a b = (a,b)
->#endif
 
-#if __HASKELL1__ < 5
-#define amap map
-#else
 #define amap fmap
-#endif
 
 
 \end{verbatim}
@@ -66,34 +60,6 @@ They were documented in earlier chapters (Part~\ref{part:modules}).
 a continuation.
         \begin{verbatim}
 
->#if __HASKELL1__ < 3
-> main = getArgs exit $ \args ->
->       case args of
->       [gms_dir,   -- Gaussian mixtures directory
->        dmap_file, -- density map file
->        dgs_file,
->        utts_file] -> readFile  dmap_file  exit $ \cs0 ->
->                      readFile  dgs_file   exit $ \cs1 ->
->                      readFile  utts_file  exit $ \cs2 ->
->                      let
->
->                        density_map = concat (
->                                        map restructure (
->                                          readElements cs0))
->
->                        hmm_dgs = get_log_probs (
->                                    build_hmm_array (
->                                      readHmms cs1))
->
->                        file_names = lines cs2
->
->                      in
->                        build_tmt  gms_dir  density_map  []  $
->                          \hmm_tms -> align_each_file hmm_tms hmm_dgs
->                                        0 0.0 file_names
->                       
->       _           -> error usage
->#else
 > main = getArgs >>=  \args ->
 >       case args of
 >       [gms_dir,   -- Gaussian mixtures directory
@@ -120,7 +86,6 @@ a continuation.
 >                                        0 0.0 file_names
 >                       
 >       _           -> error usage
->#endif
 
 
 > usage = "usage: BatchAlign  <gms dir>  <density map file> <dgs file>  <utt list file>"
@@ -239,33 +204,6 @@ an internal representation to improve efficiency
 definition stands for ``tied-mixture continuation.''
         \begin{haskell}{build_tmt}
 
->#if __HASKELL1__ < 3
-> build_tmt :: String ->
->              [(Phone, Assoc HmmState DensityMap)] ->
->              [Assoc Phone (Assoc Int TiedMixture)] ->
->              (TmTable -> Dialogue) ->
->              Dialogue
-
-> build_tmt dir ((p,k:=t):rps) as tc =
->       case t of
->       TiedM q s -> build_tmt  dir  rps  ((p:=(k:=Tie q s)):as)  tc
->       Mix       -> let
->                      file = get_gm_fname  dir  p  k
->                    in
->                      readFile  file  exit  $ \bs ->
->                      case  readMixture bs  of 
->                      Nothing      -> error (can't_read file)
->                      Just (m,bs') -> if null bs'
->                                      then let
->                                             m' = extern_to_intern m
->                                           in
->                                             build_tmt dir rps
->                                               ((p:=(k:=Gm m')):as) tc
->                                      else error (can't_read file)
-
-> build_tmt  _ [] as tc = tc (make_tm_table as)
-
->#else
 > build_tmt :: String ->
 >              [(Phone, Assoc HmmState DensityMap)] ->
 >              [Assoc Phone (Assoc Int TiedMixture)] ->
@@ -290,8 +228,6 @@ definition stands for ``tied-mixture continuation.''
 
 > build_tmt  _ [] as = return (make_tm_table as)
 
->#endif
-
 > can't_read :: String -> String
 > can't_read file = " can't read the file " ++ file
 
@@ -306,34 +242,6 @@ definition stands for ``tied-mixture continuation.''
 
         \begin{haskell}{align_each_file}
 
->#if __HASKELL1__ < 3
-> align_each_file :: TmTable ->
->                    HmmNetworkDic ->
->                    Int ->             -- number of files aligned
->                    Float ->           -- cumulative alignment score
->                    StrListCont
-
-> align_each_file  hmm_tms  hmm_dgs  nfs  ts  (fn:rfns) =
->       readFile (fn ++ ".ppm") exit           $ \cs ->
->       readFile (fn ++ ".fea") exit           $ \bs ->
->       let
->         Just (pnet,_)  = readsPrnNetwork cs
->         hmm            = buildHmm hmm_dgs pnet
->         fvs            = readVectors observation_dimen bs
->         lts            = map (eval_log_densities hmm_tms) fvs
->         (score,states) = align hmm lts
->         nfs'           = nfs + 1
->         ts'            = ts  + score
->       in
->         appendChan stderr (printf "%4d%7.2f%7.2f  %s\n" [
->           UInt nfs', UFloat score, UFloat (ts' / fromIntegral nfs'),
->           UString fn ]) exit $
->         writeFile (fn ++ ".algn") (showAlignment states) exit 
->           (align_each_file  hmm_tms  hmm_dgs  nfs' ts' rfns)
-
-> align_each_file _ _ _ _ [] = done
-
->#else
 > align_each_file :: TmTable ->
 >                    HmmNetworkDic ->
 >                    Int ->             -- number of files aligned
@@ -361,8 +269,6 @@ definition stands for ``tied-mixture continuation.''
 
 > align_each_file _ _ _ _ [] = return ()
 
->#endif
-
 > showAlignment :: [(Phone, HmmState)] -> String
 > showAlignment = unlines . map showIndexedState . zip [0..]
 
index 63cb884..49fb3b0 100644 (file)
@@ -20,13 +20,9 @@ vectors.
 
 > import Phones         -- application-specific modules
 > import HmmConstants
-> import Array--1.3
+> import Data.Array
 
-#if __HASKELL1__ < 5
-#define amap map
-#else
 #define amap fmap
-#endif
 
 
 \end{haskell}
index 1e128b4..34829e4 100644 (file)
@@ -34,14 +34,10 @@ described in later chapters in Part~\ref{part:library}.
 > import BalBinSTrees
 > import Lists( mapfst, mapsnd, mapAccumlfst )
 > import PlainTextIO
-> import Array--1.3
-> import Ix--1.3
+> import Data.Array
+> import Data.Ix
 
-#if __HASKELL1__ < 5
-#define amap map
-#else
 #define amap fmap
-#endif
 
 \end{verbatim}
 
index 87a1d0e..6b43e3d 100644 (file)
@@ -10,7 +10,7 @@ Standard Prelude.
 >               foldr1_2op,
 >               hamming
 >       ) where
-> import List(genericSplitAt)--1.3
+> import Data.List(genericSplitAt)
 
 \end{haskell}
 
index f804f9d..85cbc7a 100644 (file)
@@ -2,7 +2,7 @@
         \begin{haskell}{Phones}
 
 > module Phones( Phone(..), phone_bounds, phone_list ) where
-> import Ix--1.3
+> import Data.Ix
 
 \end{haskell}
 
index 1b29500..5275edf 100644 (file)
@@ -3,7 +3,7 @@
 > module PlainTextIO( module MaybeStateT, module PlainTextIO ) where
 
 > import MaybeStateT
-> import Char(isSpace)--1.3
+> import Data.Char(isSpace)--1.3
 
 \end{haskell}
 
index fb09dfd..1195462 100644 (file)
@@ -11,7 +11,7 @@ pronunciation models of words and utterances.
 >       readDictionary, readsPrnNetwork, showPrnNetwork,
 >       pre_hmm
 >       ) where
-> import Char(isSpace,toUpper,isDigit)
+> import Data.Char(isSpace,toUpper,isDigit)
 
 \end{haskell}
 
index a189bdf..cee74df 100644 (file)
@@ -13,7 +13,7 @@ network and turn it into a single HMM.
 
 > import HmmDigraphs
 > import HmmDensities
-> import Array--1.3
+> import Data.Array--1.3
 
 \end{haskell}
 
index b75a34c..b59b7f5 100644 (file)
@@ -10,7 +10,7 @@ module Create (createTree,extract)where
 import Header (TypeExp(..), Expression(..),ParseTree(..))
 import Local (termEnv,funEnv,constant,adfs,args) 
 import Unify (applySub, unify, Theta(..))
-import Array
+import Data.Array
 
 -- selectTerm function -----------------------------------------------------------------
 --
index 64e0aeb..7402845 100644 (file)
@@ -9,7 +9,7 @@
 module Eval (evalExp,atoi,atof) where
 import Header(TypeExp(..), Expression(..))
 import Local(runTimeErrorHandler)
-import Char(ord)
+import Data.Char(ord)
 import Trace
 
 
index aae2b26..5a96e55 100644 (file)
@@ -7,8 +7,8 @@
 
 module Local where
 import Header (Expression(..),TypeExp(..),ExpressionList(..))
-import Array(Array, array)                
-import Char(ord)
+import Data.Array(Array, array)                
+import Data.Char(ord)
 --import Eval(atoi)
 --import Auxil(indexL)
 
index 85362da..6702d40 100644 (file)
@@ -8,8 +8,8 @@
 module Main where
 import Header(Expression(..),TypeExp(..))
 import Auxil (getParas, create, evolve, displayPop)
-import System (getArgs)
-import Random (randomInts,randomDoubles)
+import System.Environment (getArgs)
+import System.Random (randomInts,randomDoubles)
 
 main = getArgs         >>=     \ [f1]          ->
        readFile f1     >>=     \ inputs        ->
index 9522363..45a180f 100644 (file)
@@ -11,7 +11,7 @@ import MyUtils
 import AbstractVals2
 import SuccsAndPreds2
 
-import List(nub) -- 1.3
+import Data.List(nub) -- 1.3
 
 -- ==========================================================--
 --
index 045886f..85aa0d3 100644 (file)
@@ -10,7 +10,7 @@ import Utils
 import MyUtils
 import Dependancy
 
-import List(nub) -- 1.3
+import Data.List(nub) -- 1.3
 
 -- ==========================================================--
 -- First, put "split" lambda abstractions back together.
index a2edc74..92d9d89 100644 (file)
@@ -15,8 +15,8 @@ import EtaAbstract
 import StrictAn6
 import ReadTable
 
-import System -- partain: for 1.3
-import Char(isDigit)
+import System.Environment
+import Data.Char(isDigit)
 
 -- ==========================================================--
 --
index deef141..166ff8e 100644 (file)
@@ -8,7 +8,7 @@ import BaseDefs
 import Utils
 import Dependancy
 
-import List(nub) -- 1.3
+import Data.List(nub) -- 1.3
 
 -- ==========================================================--
 --
index 3d29234..2a50955 100644 (file)
@@ -9,8 +9,8 @@ import Utils
 import MyUtils
 import MakeDomains
 
-import List(nub) -- 1.3
-import Char(isAlpha,isDigit) -- 1.3
+import Data.List(nub)
+import Data.Char(isAlpha,isDigit)
 
 -- ====================================--
 -- === Lexical analyser             ===--
index 3b5ab94..5e272d0 100644 (file)
@@ -9,7 +9,7 @@ import Utils
 import MyUtils
 import Parser2
 
-import Char(isDigit) -- 1.3
+import Data.Char(isDigit) -- 1.3
 
 -- ==========================================================--
 --
index b8c1f9e..e67c5ce 100644 (file)
@@ -13,7 +13,7 @@ import MyUtils
 import Utils
 import AbsConc3
 
-import List(nub,transpose) -- 1.3
+import Data.List(nub,transpose) -- 1.3
 
 -- ==========================================================--
 --
index f105240..b917fba 100644 (file)
@@ -21,8 +21,8 @@ import FrontierGENERIC2
 import SmallerLattice
 import AbsConc3
 
-import List(transpose) -- 1.3
-import Char(isLower,isUpper)
+import Data.List(transpose)
+import Data.Char(isLower,isUpper)
 
 -- ==========================================================--
 -- Call analyser and format results
index 753fd92..264f167 100644 (file)
@@ -12,7 +12,7 @@ import DomainExpr
 import MakeDomains
 import TypeCheck5
 
-import List(nub) -- 1.3
+import Data.List(nub) -- 1.3
 
 -- ==========================================================--
 -- This may need fixing up if we start instantiating domain
index eef9449..3bd56ba 100644 (file)
@@ -9,7 +9,7 @@ import BaseDefs
 import Utils
 import MyUtils
 
-import List(nub) -- 1.3
+import Data.List(nub) -- 1.3
 
 -- ==========================================================--
 -- === Formatting of results                              ===--
index bf7ee77..9d95b2d 100644 (file)
@@ -15,7 +15,7 @@
 > import GeomNum
 > import MGRlib (line)
 > import Params (mouseDispx,mouseDispy,gap)
-> import Char(isDigit)--1.3
+> import Data.Char(isDigit)--1.3
 
 
        The data type Line is used to describe a line.
index 5e4de4a..2021527 100644 (file)
@@ -4,7 +4,7 @@
 
 > where
  
-> import Ratio--1.3
+> import Data.Ratio
 > infix 7 :%%
 
 
index 18772bf..7964034 100644 (file)
 -}
 
 module Main ( main ) where
-import Char
-import List
-import IO
-import System
+import Data.Char
+import Data.List
+import System.IO
+import System.Environment
+import System.Exit
 import Arch_x86
 import Generics
 
index f9d22e8..b632b57 100644 (file)
@@ -28,8 +28,8 @@
 module Color where
 -- (Color (..), lookupColor, showsColor, prepareColors)
 
-import Char -- 1.3
-import List ((\\)) -- 1.3
+import Data.Char -- 1.3
+import Data.List ((\\)) -- 1.3
 
 type Color = (Int, Int, Int)
 
index eea6b36..f7face3 100644 (file)
@@ -1,8 +1,8 @@
 module CommandLine (parse_cmds) where
 -- Copyright 1994 by Peter Thiemann
 
-import System--1.3
-import IO--1.3
+import System.Environment
+import System.IO
 
 defaultArgs :: Args
 defaultArgs  =  MkArgs "Times-Roman" 10 "black" "Times-Roman" 10 "black" "black" "black" 500 500 30 100 200 "rgb.txt" False False True False False False
index d1093b8..83e7c43 100644 (file)
@@ -27,7 +27,7 @@ import AbstractSyntax
 import Color
 import Fonts (FONT, stringWidth, stringHeight, fontDescender)
 import Info
-import List--1.3
+import Data.List--1.3
 
 -- all arithmetic is done in 1/100 pt
 
index 8aca460..3f6a648 100644 (file)
@@ -36,7 +36,7 @@
 module Fonts (FONT, makeFont, fontDescender, stringWidth, stringHeight, fontName, fontScale, noFont)
 where
 
-import Char--1.3
+import Data.Char
 
 -- not in 1.3
 readDec :: (Integral a) => ReadS a
index 9f3f705..5211db9 100644 (file)
@@ -45,12 +45,10 @@ module IOSupplement (
        getPath, readPathFile
    ) where
 
-import System -- 1.3
-import IO
+import System.Environment
+import System.IO
 
-#if __HASKELL1__ >= 5
 #define fail ioError
-#endif
 
 --------------------------------------------------------------------------------
 
index 8466b88..5d8653c 100644 (file)
@@ -1,6 +1,6 @@
 module Lexer where
 -- Copyright 1994 by Peter Thiemann
-import Char -- 1.3
+import Data.Char
 
 ------------------------------------------------------------------------------
 --NOW the lexer
index 316969c..ec7bcb4 100644 (file)
@@ -39,7 +39,7 @@
 module Main (main)
 where
 
-import IO
+import System.IO
 import IOSupplement
 import CommandLine     (parse_cmds)
 import StringMatch     (stringMatch)
index 0df9b76..c7300bb 100644 (file)
@@ -8,9 +8,9 @@
 -- **********************************************************************
 
 
-module Basics(showrj,showlj, azip, module Array) where
+module Basics(showrj,showlj, azip, module Data.Array) where
 
-import Array
+import Data.Array
 
 
 showlj, showrj :: (Show a) => Int -> a -> [Char]
index 3915050..961f4a3 100644 (file)
@@ -10,7 +10,7 @@
 module DB_interface(nnode, nmats, getnxy, getnbc, getmpro, 
                     nelem, nplds, getenlr, getemat, getpld) where
 
-import Array
+import Data.Array
 import Database
 
 nnode, nelem, nmats, nplds :: (Array Int Int, Array Int Float) -> Int
index 680f6c7..e729d1c 100644 (file)
@@ -11,8 +11,8 @@
 -- **********************************************************************
 
 module Database(idatabase,rdatabase) where
-import Array
-import Char (isDigit)
+import Data.Array
+import Data.Char (isDigit)
 
 idatabase :: [Char] -> Array Int Int
 
index d77b1db..a115de9 100644 (file)
@@ -12,7 +12,7 @@
 
 module Degrees( ndgrs, getndgr, degreesrlt ) where
 
-import Array
+import Data.Array
 import Basics
 import Vector
 import DB_interface
index 63c5739..61452be 100644 (file)
@@ -14,7 +14,7 @@ module Matrix(Mat, makemat, boundmat, matsub, incrmat, updmat,
               mmatvec, mmatmat, row, col, intchrow, intchcol, interchmat,
               displaymat) where
 
-import Ix
+import Data.Ix
 import Basics
 
 import Vector
index 5bfd2a2..21db2b2 100644 (file)
@@ -80,7 +80,7 @@
 module Vector(Vec, makevec, boundvec, vecsub, incrvec, updvec, maxupdvec,
               vecprod, displayvec) where
 
-import Array
+import Data.Array
 import Basics
 
 data Vec a = VEC Int (Array Int a)
index 63d1981..f5ccc9b 100644 (file)
@@ -17,7 +17,7 @@ module Asb_routs
 import Defs
 import S_Array -- not needed w/ proper module handling
 import Norm    -- ditto
-import Ix--1.3
+import Data.Ix
 
 -----------------------------------------------------------
 -- Generating a lookup table for assembling a system     --
index 7267322..a506d50 100644 (file)
@@ -22,7 +22,7 @@ import Defs
 import S_Array -- not needed w/ proper module handling
 import Norm    -- ditto
 import Asb_routs
-import Ix--1.3
+import Data.Ix
 infix 1 =:
 (=:) a b = (a,b)
    
index 6e5cf64..47b5285 100644 (file)
@@ -20,7 +20,7 @@ import Defs
 import S_Array -- not needed w/ proper module handling
 import Norm    -- ditto
 import Asb_routs
-import Ix--1.3
+import Data.Ix
 infix 1 =:
 (=:) a b = (a,b)
 
index 6529c31..ef9b325 100644 (file)
@@ -25,7 +25,7 @@ import Defs
 import S_Array -- not needed w/ proper module handling
 import Norm    -- ditto
 import Min_degree
-import Ix--1.3
+import Data.Ix
 infix 1 =:
 (=:) a b = (a,b)
 -----------------------------------------------------------
index 7d2466f..724bbcc 100644 (file)
@@ -17,7 +17,7 @@ import S_Array        -- not needed w/ proper module handling
 import Norm    -- ditto
 import Asb_routs
 import Tol_cal
-import Ix--1.3
+import Data.Ix
 
 -----------------------------------------------------------
 -- Jacobi iteration method:                              --
index 1038849..6613fc7 100644 (file)
@@ -11,7 +11,7 @@ module Min_degree (min_degree) where
 import Defs
 import S_Array -- not needed w/ proper module handling
 import Norm    -- ditto
-import List(nub,partition)--1.3
+import Data.List(nub,partition)--1.3
 
 -- minimum degree ordering
 -- the entry lists in old_rows must be in assending order
index 9e8bb69..5e161bb 100644 (file)
@@ -25,7 +25,7 @@ import S_matrix
 import C_matrix
 import L_matrix
 import Asb_routs
-import Ix--1.3
+import Data.Ix
 
 -----------------------------------------------------------
 -- Calculating the right-hand-side for step 1.           --
index a18cd0d..2c65aec 100644 (file)
@@ -34,9 +34,9 @@ module S_Array (
 
 import Norm
 
-import Array--1.3
-import Ix--1.3
-import List -- 1.3
+import Data.Array
+import Data.Ix
+import Data.List
 
 infixl 9 !^
 infixl 9 //^
index c0d76f9..850f47c 100644 (file)
@@ -23,10 +23,6 @@ import Matrix
 import Types
 import Interval
 
-#if __HASKELL1__ < 5
-#define realToFrac fromRealFrac
-#endif
-
 -- no is returned when there is "no" change to the csg.
 no = error ("Evaluated dead csg.")
 
index 9d282ca..ebeb851 100644 (file)
@@ -31,7 +31,7 @@ import Kolor
 import Matrix
 import Patchlevel
 
-import System
+import System.Environment
 import System.IO
 
 main = do
index 69ec768..0fd4ca8 100644 (file)
@@ -22,10 +22,6 @@ module Matrix where
 import Types
 import Interval -- not used.
 
-#if __HASKELL1__ < 5
-#define realToFrac fromRealFrac
-#endif
-
 mat4x1 :: (Fractional a) => Arr -> R3 a -> R3 a
 mat4x1 (r1,r2,r3) xyz = (x,y,z)
                           where
index 46d0166..7997d0a 100644 (file)
@@ -7,7 +7,7 @@ module InitTable (ergs, xComp, xPair, xPhot) where
 
 import GamtebType
 import Consts
-import Array--1.3
+import Data.Array
 
 -- initialize the cross section tables
 -- these tables are constant, used with the energy and energy index
index 4be38bd..fd9d14c 100644 (file)
@@ -4,7 +4,7 @@
 --      1990 August
 --
 import GamtebMain
-import IO--1.3
+import System.IO
 
 main = do
     hPutStr stderr "Enter the scale of computation: "
index 2f3eb3c..86accfa 100644 (file)
@@ -9,7 +9,7 @@ import  GamtebType
 import Consts
 import Utils
 import InitTable
-import Array--1.3
+import Data.Array
 
 outGamteb :: Int -> [Stat] -> [Result] -> [Char]
 outGamteb nPart stats results =
index ff3fe91..0324932 100644 (file)
@@ -8,7 +8,7 @@ module Utils (xsectInterp, genRand) where
 import GamtebType
 import Consts
 import InitTable
-import Array((!))--1.3
+import Data.Array((!))
 
 -- linear interpolation to get cross sections as f(erg)
 
index 85bbfb9..984852e 100644 (file)
@@ -9,7 +9,7 @@ import Activity
 import Spark
 --import Prog (prog)
 
-import System -- 1.3 (partain)
+import System.Environment
 
 main = do
     str <- getArgs
index 300be4c..d02a9a6 100644 (file)
@@ -1,5 +1,5 @@
  module Parse(Parse(..),whiteSpace,seperatedBy) where
- import Char -- 1.3
+ import Data.Char -- 1.3
  import StdLib
  class Parse a where
        parseFile :: String -> [a]
index df882bd..563b20e 100644 (file)
@@ -1,8 +1,8 @@
 > module Main where
 
 > import Parsers
-> import System -- 1.3 (partain)
-> import IO--1.3
+> import System.Environment
+> import System.IO
 
 > infixr 8 +.+ , +.. , ..+
 > infixl 7 <<< , <<*
index 965c08b..f97f545 100644 (file)
@@ -6,7 +6,7 @@ import Preds
 import Solve
 import Geometric
 import Cross
-import List(nub)--1.3
+import Data.List(nub)--1.3
 -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 -- section 8: Comparing
 
index 757e9d6..e3efd3d 100644 (file)
@@ -4,7 +4,7 @@ import Vectors
 import EdgePlate
 import Solve
 import Preds
-import List(nub)--1.3
+import Data.List(nub)--1.3
 -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 -- section 6: Crossing edges (MR was: lines)
 
index 191bfd1..9aa4f8f 100644 (file)
@@ -6,7 +6,7 @@ import Geometric
 import Comparing
 import Memo
 import Postscript
-import Array    -- 1.3
+import Data.Array
 
 -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 -- section 5: Hiding
index 7c1e65e..8b2dd0f 100644 (file)
@@ -5,7 +5,7 @@ import Hide
 import MyIO
 import EdgePlate       ( Input(..) )  -- partain
 import Postscript      ( Output(..) ) -- partain
-import IO       -- 1.3
+import System.IO
 
 main = 
   do
index 1cb8853..0a8fc36 100644 (file)
@@ -3,8 +3,8 @@ import Numbers
 import Vectors
 import EdgePlate
 import Comparing(above)
-import Ix
-import Array
+import Data.Ix
+import Data.Array
 
 data Triangle a = a :^ a deriving (Eq,Ord, {-1.3-}Show)
 
index 03ac38c..fe6d567 100644 (file)
@@ -1,8 +1,8 @@
 module MyIO(getFilename,process) where
 import Numbers
 import Vectors
-import IO--1.3
-import System(getArgs)--1.3
+import System.IO--1.3
+import System.Environment(getArgs)--1.3
 
 type InputCont = [String] -> IO ()
 
index 2eb5787..735ba41 100644 (file)
@@ -36,7 +36,7 @@ The interface is as follows:
 
 > import Config
 > import Types
-> import IO -- 1.3
+> import System.IO
 
 \end{haskell}
 
index a59e530..12c2d1d 100644 (file)
@@ -21,8 +21,8 @@ This module gathers the others together to generate and print the program.
 > import GenType
 > import GenVal
 > import GenExp
-> import System -- 1.3 
-> import IO     -- 1.3
+> import System.Environment
+> import System.IO
 
 \end{haskell}
 
index 01b9026..c8e4646 100644 (file)
@@ -28,7 +28,7 @@ need to read any of them.
 >     sep_list
 >     ) where
 
-> import Char (isAlpha) -- 1.3
+> import Data.Char (isAlpha) -- 1.3
 > import Config
 
 \end{haskell}
index 6bfe20c..dae5cda 100644 (file)
@@ -13,7 +13,7 @@ This module contains useful utility functions needed throughout the \HPG.
 >     cmap, rep, print_str, split_str, finish
 >     ) where
 
-> import Char
+> import Data.Char
 > import Config
 > import Types
 > import Env
index d63fa2e..bc75a93 100644 (file)
@@ -1,6 +1,6 @@
 module Infer (inferTerm) where
 
-import List(nub)
+import Data.List(nub)
 
 import  MyList                  (minus)
 import  Type                  (TVarId, TConId, MonoType (..), PolyType (All),
index 094995b..e28b159 100644 (file)
@@ -11,11 +11,7 @@ module Parse
        useP)                                          --  using a parser      
       where
 
-import Char -- 1.3
-
-#if __HASKELL1__ < 5
-#define isAlphaNum isAlphanum
-#endif
+import Data.Char -- 1.3
 
 infixr 1      `elseP`
 infix  2      `thenP`
index f675302..b217339 100644 (file)
@@ -8,7 +8,7 @@ module Type
 import Parse
 import Shows
 import MyList
-import List(nub)--1.3
+import Data.List(nub)--1.3
 
 type  TVarId          =  String
 type  TConId          =  String
index 3100d29..841bc05 100644 (file)
@@ -46,7 +46,7 @@ module Densematrix(Matrix,Vector,
         minverse,
         veclist, matlist ) where
 
-import List (transpose)
+import Data.List (transpose)
 import Utils
 
 type Matrix    =  [[Float]]
index 67bba07..9c2afa4 100644 (file)
@@ -34,7 +34,7 @@ module Input
               mksparse,a_easy,a_hard,x1) where
 
 
-import List (transpose)
+import Data.List (transpose)
 import Matrix
 import AbsDensematrix
 import Utils 
index b1e0262..e6c18f9 100644 (file)
@@ -24,7 +24,7 @@ Notes:
 \begin{code}
 module Matlib (scale, precond, uncondition) where 
 
-import List (genericLength)
+import Data.List (genericLength)
 import Matrix
 import AbsDensematrix 
 
index 753d7fd..ab90e36 100644 (file)
@@ -163,7 +163,7 @@ then the following output is produced:
 \begin{verbatim}
 module Main (main) where
 
-import System (getArgs)
+import System.Environment (getArgs)
 
 defaultArgs :: Args
 defaultArgs  =  MkArgs False "" ??
@@ -259,7 +259,7 @@ The program starts with a module header which just exports \prog{main}.
 
 > module Main (main) where
 
-> import System (getArgs)
+> import System.Environment (getArgs)
 
 \end{haskell}
 
index e559141..5c54659 100644 (file)
@@ -5,7 +5,7 @@
 -- ==========================================================--
 
 module Main where
-import Char -- 1.3
+import Data.Char -- 1.3
 ----------------------------------------------------------
 -- Lexemes                                              --
 ----------------------------------------------------------
index d130165..e986ae5 100644 (file)
@@ -7,7 +7,7 @@ module ChargeDensity (chargeDensity) where
 
 import PicType
 import Consts
-import Array--1.3
+import Data.Array
 
 -- Phase I: calculate the charge density rho
 -- Each particle represents an amount of charge distributed over an entire cell.
index f0b702c..6487b0e 100644 (file)
@@ -7,7 +7,7 @@ module ElecField (elecField) where
 
 import PicType
 import Consts
-import Array--1.3
+import Data.Array
 
 -- Phase III: Calculate electric fields
 -- the x and y components of the electric field are approximated
index 5635c24..6b7c25a 100644 (file)
@@ -5,7 +5,7 @@
 --
 import Pic
 import  PicType        -- added by partain
-import IO(hPutStr,stderr)--1.3
+import System.IO(hPutStr,stderr)
 
 main = do
     hPutStr stderr "Enter the number of particles: "
index 0c7c4c2..96e9fd9 100644 (file)
@@ -22,7 +22,7 @@ import        ChargeDensity
 import Potential
 import ElecField
 import PushParticle
-import Array--1.3
+import Data.Array
 
 -- PIC, particle in cell, a basic electrodynamics application
 -- Given an initial configuration of particles, follow how they move under the
index 7d61c86..d1357f5 100644 (file)
@@ -7,7 +7,7 @@
 module PicType (Count, Indx, Value, Mesh, MeshAssoc, Electric,
                Phi, Rho, Position, Range, Velocity, ParticleHeap) where
 
-import Array
+import Data.Array
 
 type   Count           = Int
 type   Indx            = Int
index 1568c1d..16c2af9 100644 (file)
@@ -8,7 +8,7 @@ module Potential (potential) where
 import PicType
 import Consts
 import Utils
-import Array--1.3
+import Data.Array
 
 -- Given charge density matrix, rho
 -- Compute new electrostatic potential phi' where del2(phi') = rho
index 0acbb56..50610eb 100644 (file)
@@ -7,7 +7,7 @@ module PushParticle (pushParticle) where
 
 import PicType
 import Consts
-import Array--1.3
+import Data.Array--1.3
 
 -- Phase IV: Particle push
 -- Each particle has an initial velocity determined by its motion during the
index f1ff544..18adfdc 100644 (file)
@@ -6,7 +6,7 @@
 module Utils (applyOpToMesh, coarseMesh, fineMesh, genRand, log2) where
 
 import PicType
-import  Array -- 1.3
+import Data.Array
 infix 1 =:
 (=:) a b = (a,b)
 
index 8518f62..55c77fd 100644 (file)
@@ -12,7 +12,7 @@ import Interact
 import Subst
 import Engine
 import Version
-import List(nub)--1.3
+import Data.List(nub)--1.3
 
 --- Command structure and parsing:
 
index 664ba1d..eea60d8 100644 (file)
@@ -11,8 +11,8 @@ module PrologData(Id, Atom, Term(..), term, termlist, varsIn,
                   Database, emptyDb, renClauses, addClause, Parser ) where
 
 import Parse
-import List(nub)--1.3
-import Char(isAlpha,isDigit,isUpper)
+import Data.List(nub)--1.3
+import Data.Char(isAlpha,isDigit,isUpper)
 
 infix 6 :==
 
index 713fa1b..b9aa670 100644 (file)
@@ -5,7 +5,7 @@ module Auxprogfuns(
 nearx,neary, deline, orient, display, cs,
   wwscale, wscale, wline, showoris) where
 
-import List ( (\\) ) -- 1.3
+import Data.List ( (\\) ) -- 1.3
 
 import Mgrfuns
 import Diff
index ecfcb87..568567c 100644 (file)
@@ -12,7 +12,7 @@ module Command
 
 where
 
-import Char
+import Data.Char
 
 import Options
 
index 1e549a1..a71043c 100644 (file)
@@ -11,7 +11,7 @@ where
 
 
 import Maybes
-import Char
+import Data.Char
 import Lex
 import Monad
 
index 60423bb..ed675a5 100644 (file)
@@ -13,7 +13,7 @@ import Trace
 
 import System
 import Stuff (intersperse)
-import Char (isSpace)
+import Data.Char (isSpace)
 
 import Options
 import Command
index d74eb1c..90713a3 100644 (file)
@@ -49,7 +49,7 @@ where
 
 import Maybes
 
-import Char (isDigit)
+import Data.Char (isDigit)
 
 import FiniteMap
 import Pretty
index 1973ca2..866e6f2 100644 (file)
@@ -12,7 +12,7 @@ module Lex
 
 where
 
-import Char
+import Data.Char
 
 
 --------------------------------------------------------
index f2bbd90..56cce42 100644 (file)
@@ -1,7 +1,7 @@
 module LinearAlgebra where
 
-import Array
-import List
+import Data.Array
+import Data.List
 
 import Types
        
index 3f28d0e..2fad409 100644 (file)
@@ -1,7 +1,7 @@
 module Main(main) where
 
-import Array
-import System
+import Data.Array
+import System.Environment
 
 import Parse
 import Simulate
index 93fc4a0..41fe7bf 100644 (file)
@@ -1,9 +1,9 @@
 module Parse(parse_circuit, parse_exact, parse_approx, parse_integer) where
 
-import Char
-import List
-import Maybe
-import Ratio
+import Data.Char
+import Data.List
+import Data.Maybe
+import Data.Ratio
 
 import Types
 import ParseLib
index 425571f..04fe040 100644 (file)
@@ -1,6 +1,6 @@
 module ParseLib where
 
-import Char
+import Data.Char
 
 type Parser a = String -> [(a, String)]
 
index ee7523a..a699d47 100644 (file)
@@ -1,8 +1,8 @@
 module Simulate where
 
-import Array
-import List
-import Ratio
+import Data.Array
+import Data.List
+import Data.Ratio
 
 import RandomFix
 import LinearAlgebra
index f1eddcb..b6df8e6 100644 (file)
@@ -1,5 +1,5 @@
 module Types where
-import Array
+import Data.Array
 
 type Name              = String
 type Seed              = Integer
index 5833f2d..09902d2 100644 (file)
@@ -1,7 +1,7 @@
 module BasicNumber (BasicNumber (..), makeReal, makeRational, RealT{-partain-}) where
 
 import RealM
-import Ratio--1.3
+import Data.Ratio
 
 data BasicNumber = BasIntegerC Integer
                  | BasRationalC Rational
index bb7be9d..4fa4cb2 100644 (file)
@@ -3,8 +3,8 @@ module BasicNumberApprox (equ, lt, gt, lte, gte, ne, rabs, rsignum,
 
 import RealM
 import BasicNumber
-import Ratio--1.3
-import List(genericDrop, genericTake)--1.3
+import Data.Ratio
+import Data.List(genericDrop, genericTake)
 
 -- This module contains a set of routines which need a precision
 -- argument to work for reals. For example, two real numbers can
index cba8521..97b7efa 100644 (file)
@@ -1,6 +1,6 @@
 module Lexer (Lexeme(..), lexer) where
 
-import Char -- 1.3
+import Data.Char -- 1.3
 
 -- lexeme
 data Lexeme = Ide String
index a0a4d87..369b7e5 100644 (file)
@@ -6,7 +6,7 @@ import Env
 import Print
 import Eval
 import BasicNumber -- partain
-import IO --(isEOF,hFlush,stdout)
+import System.IO
 
 ----------------------------------------------------------------------------
 
index 937b9d5..cd8eb33 100644 (file)
@@ -7,7 +7,7 @@ import Op
 import Parser
 import Env
 import Eval
-import Ratio--1.3
+import Data.Ratio
 
 -- print an abstract syntax tree
 printAst :: Ast -> Env -> String
index 5230df4..2255ba0 100644 (file)
@@ -2,7 +2,7 @@ itrm building functions used by parser
 
 > module Build_itrm where
 
-> import Char(isDigit)--1.3
+> import Data.Char(isDigit)--1.3
 > import Core_datatype
 
 > import Type_defs
index f2a7465..f7a6b21 100644 (file)
@@ -1,7 +1,7 @@
 
 > module Parse where
 
-> import Char(isDigit)--1.3
+> import Data.Char(isDigit)--1.3
 > import Token
 
 > import Unparse
index be9c41b..7a63dc0 100644 (file)
@@ -16,7 +16,7 @@
 
 import Control.Concurrent
 import Control.Monad
-import System
+import System.Environment
 
 thread :: MVar Int -> MVar Int -> IO ()
 thread inp out = do x <- takeMVar inp; putMVar out $! x+1; thread inp out
index c359bcd..f6c1b7f 100644 (file)
@@ -11,7 +11,7 @@
 
 import Control.Concurrent
 import Control.Monad
-import System
+import System.Environment
 import GHC.Conc (forkOnIO)
 
 thread :: MVar Int -> MVar Int -> IO ()
index a31fa93..747bcbb 100644 (file)
@@ -40,7 +40,7 @@ In fact these numbers bounce around quite a bit, they aren't accurate
 to more than 20\% or so.
 -}
 
-import IO
+import System.IO
 import System.Environment
 import System.CPUTime
 import Text.Printf
index 7ccab15..1329606 100644 (file)
@@ -1,5 +1,5 @@
 {-# OPTIONS_GHC -O2 #-}
-import IO
+import System.IO
 import System.Environment
 import System.CPUTime
 import Text.Printf
index 243bfae..e6f65a1 100644 (file)
@@ -18,7 +18,7 @@
 
 module Main where
 
-import System
+import System.Environment
 
 infixl 9 .*
 infix 9 <*>
index 8ce3849..0f1c1f1 100644 (file)
@@ -28,7 +28,7 @@ Kevin
 --     Bronze  50 points
 
 import QSort
-import List((\\))
+import Data.List((\\))
 import System.Environment
 import Control.Monad
 
index d6d39f5..5d183c9 100644 (file)
@@ -28,8 +28,8 @@
 --
 -- Enjoy!
 ------------------------------------------------------------------------------
-import Char -- 1.3
-import List -- 1.3
+import Data.Char
+import Data.List
 -- main: added by partain
 main = do { stuff <- getContents; putStr (say stuff) }
 
index efde843..94902a1 100644 (file)
@@ -2,18 +2,15 @@
 -- of Bird and Wadler's ``Introduction to functional programming'', with
 -- two ways of printing the calendar ... as in B+W, or like UNIX `cal':
 
-import IO -- 1.3
-import System -- 1.3
-import List -- 1.3
-import Char -- 1.3
+import System.IO
+import Data.List
+import Data.Char
 
 import System.Environment
 import Control.Monad
 
 -- To keep it backward compatible with pre-Haskell 98 compilers..
-#if __HASKELL1__ >= 5
 #define fail ioError
-#endif
 
 -- Picture handling:
 
index 97e3da0..6d18dd5 100644 (file)
@@ -32,8 +32,8 @@ The Circuit Simulator example
 David J. King & John O'Donnell
 January, 1998
 
-> import System
-> import List
+> import System.Environment
+> import Data.List
 
 > data BinTree a b = Cell a
 >                 | Node b (BinTree a b) (BinTree a b)
index 78f19e1..ee1fd95 100644 (file)
@@ -36,7 +36,7 @@ David
 
 module Main(main) where
 
-import Ix -- 1.3
+import Data.Ix
 import System.Environment
 
 main = do
index a9bfed9..85d85d2 100644 (file)
@@ -17,8 +17,8 @@ Initial revision
 >   quadraticAlgorithm, quadraticOutput,
 >   cfRat2CFSqrt, decimals, accuracy, cf2Rat, integerFraction)
 > where
-> import Maybe
-> import List( sort )
+> import Data.Maybe
+> import Data.List( sort )
 > import QRationals
 
 \section{Representation of Continued Fractions}
index 002b635..0c13271 100644 (file)
@@ -18,7 +18,7 @@ calculator type language.
 
 > module Main where
 > import RealReals
-> import Char
+> import Data.Char
 
 For the moment on the other hand it just prints a given number.
 
index 457ca98..22d355c 100644 (file)
@@ -15,8 +15,8 @@ Initial revision
 
 > module RealReals (RealReal) where
 > import Transcendentals
-> import Ratio
-> import List( genericLength )
+> import Data.Ratio
+> import Data.List( genericLength )
 > import Numeric( readSigned )
 
 > data RealReal = RealInt Integer           |
index 6481688..33f5351 100644 (file)
@@ -4,8 +4,8 @@
 -}
 
 import Prelude hiding (Maybe(Just,Nothing))
-import List
-import System
+import Data.List
+import System.Environment
 
 -----------------------------
 -- The main program
index 6f88c21..5d14e5d 100644 (file)
@@ -14,10 +14,10 @@ can not ever reach valid results.
 
 module Main where
 
-import Monad
+import Control.Monad
 import MonadState
-import List
-import Maybe
+import Data.List
+import Data.Maybe
 
 --    newtype DigitState = DigitState (Digits -> [(a,Digits))])
 -- which some might recognize as the list-of-successes parsing monad.
index 04747ac..0a264a6 100644 (file)
@@ -39,7 +39,7 @@
 >      module MonadTrans
 >      ) where
 
-> import Monad
+> import Control.Monad
 > import MonadTrans
 
 <haskell:class>
index 7611593..2158970 100644 (file)
@@ -7,7 +7,7 @@
 -- pascal code apparently provided by Robert Migliaccio (mig@ms.uky.edu).
 -------------------------------------------------------------------------------
 
-import Char -- 1.3
+import Data.Char -- 1.3
 
 main  = interact (("\n\
                    \Hi! I'm Eliza. I am your personal therapy computer.\n\
index 6d40288..206d482 100644 (file)
@@ -10,7 +10,7 @@ into a table of definitions and for accessing the table.
 module Knowledge where
 import Result
 import Table
-import List(nub)--1.3
+import Data.List(nub)--1.3
 
 -- The type `Phrase' is a tree-like data structure for storing sentences and
 -- phrases. A phrase is usually a term consisting of a word with a list of
index 22d29d8..5b45193 100644 (file)
@@ -18,8 +18,8 @@ import Table
 import Knowledge
 import Match
 import Search
-import IO hiding( try )        -- try is defined by Search
-import System--1.3
+import System.IO
+import System.Environment
 
 -- The `main' function reads in the data file before interacting with user.
 -- The `process' function takes the contents of the file and the input from the
index 7ff90f0..17dd0d0 100644 (file)
@@ -1,7 +1,7 @@
 > module Complex_Vectors
 >         (ComplexF, rootsOfUnity,thetas, norm,distance)
 > where
-> import Complex --
+> import Data.Complex
 
 > type ComplexF = Complex Double
 
index 078b4c6..3f8af37 100644 (file)
@@ -4,8 +4,8 @@
 
 > where
 
-> import Complex--1.3
-> import List(transpose)--1.3
+> import Data.Complex--1.3
+> import Data.List(transpose)--1.3
 > import Complex_Vectors
                 
 > fft:: [ComplexF] -> [ComplexF] -- Warning: works only for n=2^km
index edf217e..72a9ec0 100644 (file)
@@ -2,7 +2,7 @@
 > where             --     Rex Page (rpage@trc.amoco.com)
 > import Fourier    --     Amoco Production Research, Sep 1992
 > import Complex_Vectors
-> import Complex--1.3
+> import Data.Complex
 > import System.Environment
 
 > main = do 
index 8c9af02..452ae6e 100644 (file)
@@ -51,8 +51,8 @@ first understand binomial queues.  See, for example, David King's
 
 > -- partain
 >module Main (main) where
->import Array
->import System
+>import Data.Array
+>import System.Environment
 
 >import Control.Monad.ST
 >import Data.Array.ST
index 58ca8ee..8c89e7c 100644 (file)
@@ -1,6 +1,6 @@
 module Main (main) where
 
-import System
+import System.Environment
 
 main = do
   --runalltests 1 20 10000 1 20 10000
index 0b54f64..c1f0cda 100644 (file)
@@ -48,7 +48,7 @@ information prevents unnecessary traversal of the trail.
 
 
 \begin{code}
-import Array
+import Data.Array
 import Sort(quickSort)
 
 type Tile     = (Int,Int)
index ddc51bc..0c258da 100644 (file)
@@ -12,12 +12,10 @@ module Main(main) where
 import ChessSetList (Tile) -- partain:for hbc
 import KnightHeuristic
 import Queue
-import System--1.3
-import Char--1.3
+import System.Environment
+import Data.Char
 
-#if __HASKELL1__ >= 5
 #define fail ioError
-#endif
 
 \end{code}
 
index aa0d1cb..59938d1 100644 (file)
@@ -36,7 +36,7 @@ module Main( main ) where
 --              and about 7 times more memory.
 --              
 
-import System
+import System.Environment
 
 main :: IO ()
 main = do { mainSimple ; mainMonad }
index d31e180..d2251bd 100644 (file)
@@ -5,7 +5,7 @@
 module Main where
 import Prelude hiding( flip )
 import Pretty
-import Maybe
+import Data.Maybe
 import FiniteMap
 
 ----------------------------
index 5037cfa..922f12d 100644 (file)
@@ -13,7 +13,7 @@ optimisation here.
 
 module Main (main) where
 
-import System
+import System.Environment
 
 algb :: (Eq a) => [a] -> [a] -> [Int]
 algb xs ys
index 21d900a..5783a81 100644 (file)
@@ -3,7 +3,7 @@ module Main where
 
 import Mandel
 import PortablePixmap
-import IO --1.3
+import System.IO
 
 main =         getContents >>=                                 \ userInput      ->
                readNum "Enter min x  = " (lines userInput) $   \ minx input     ->
index 646e2d0..3f460ce 100644 (file)
@@ -8,7 +8,7 @@
 \begin{onlystandalone}
 \begin{code}
 module Mandel where
-import Complex -- 1.3
+import Data.Complex -- 1.3
 import PortablePixmap
 default ()
 \end{code}
index e6dda14..add9681 100644 (file)
@@ -3,7 +3,7 @@
 \begin{code}
 module Mandel where
 import PortablePixmap
-import Complex
+import Data.Complex
 default ()
 
 \end{code}
index 15fe406..a9f7907 100644 (file)
@@ -6,7 +6,7 @@ module Board(
   emptyAtAll, kingSquare, forcesColoured,
   colourOf, kindOf, opponent, onboard)  where
 
-import Char(toLower)
+import Data.Char(toLower)
 
 data Kind = King | Queen | Rook | Bishop | Knight | Pawn deriving (Eq,Ord)
 
index 1a7542c..ed2d8d0 100644 (file)
@@ -1,6 +1,6 @@
 module Problem(readProblem) where
 
-import Char(isUpper,toLower)
+import Data.Char(isUpper,toLower)
 import Board
 
 readProblem :: String -> (Board, (Colour, Int))
index 18b4310..bd75016 100644 (file)
@@ -2,7 +2,7 @@ module Solution (solve) where
 
 import Board
 import Move
-import List (sortBy)
+import Data.List (sortBy)
 
 solve :: Board -> Colour -> Int -> String
 solve bd c n = showResult (solution bd c (2*n-1))
index 7949719..120b9b4 100644 (file)
@@ -173,9 +173,9 @@ style.
 
 >module Main where
 
->import Char
->import IO
->import System
+>import Data.Char
+>import System.IO
+>import System.Environment
 
 \end{mcode}
 \fi
index bedf5f2..8540531 100644 (file)
@@ -5,8 +5,8 @@
 
 module Main where
 
-import IO
-import Ratio
+import System.IO
+import Data.Ratio
 import System.Environment (getArgs)
 
 infixl 7 .*
index 68ea28e..3bb1cb0 100644 (file)
@@ -14,7 +14,7 @@ In this module we define some useful functions on Integers.
 
 > module IntLib (readInteger, showInteger, makeNumber, chop,
 >                powerMod, cubeRoot, log2) where 
-> import List--1.3
+> import Data.List--1.3
 > rcsid = "$Header: /srv/cvs/cvs.haskell.org/fptools/nofib/spectral/primetest/IntLib.lhs,v 1.2 1996/07/25 21:32:53 partain Exp $"
 
 \subsection{Reading and Writing}
index 33fa9c8..f922caa 100644 (file)
@@ -12,10 +12,10 @@ called "secretary problem". Here is my code:
 \begin{code}
 module Main where
 
-import Random
-import List
-import IO
-import Monad
+import System.Random
+import Data.List
+import System.IO
+import Control.Monad
 import IOExts
 
 type Process = [Integer] -> Bool
index e165115..b1dcd51 100644 (file)
@@ -44,8 +44,8 @@
 
 
 module Main where
-import Array
-import Ix
+import Data.Array
+import Data.Ix
 infixr 1 =:
 type Assoc a b = (a,b)
 (=:) = (,)
index 9eeef8a..a96bedb 100644 (file)
@@ -1,5 +1,5 @@
 module Sort where
-import List (partition)
+import Data.List (partition)
 -- trying various sorts
 
 quickSort :: Ord a => [a] -> [a]
index c3f4bdf..a51c3a5 100644 (file)
@@ -37,7 +37,7 @@ suite URL: http://www.csg.lcs.mit.edu/impala/
 
 > module Main where
 
-> import System
+> import System.Environment
 
 > epsilon, infinity :: Double
 > epsilon  = 1.0e-6
index 970b19e..aee09a2 100644 (file)
@@ -4,8 +4,8 @@
     ordered, but not necessarily balanced.
 -}
 
-import System
-import Char(isSpace,isDigit,isAlpha)
+import System.Environment
+import Data.Char(isSpace,isDigit,isAlpha)
 
 data Tree e = Node Key (Tree e) (Tree e) | Leaf Key e | Empty deriving Show{-was:Text-}
 type Key = Int
index 0bb937d..3f2f462 100644 (file)
@@ -11,7 +11,7 @@
 
 module Main where
 
-import List
+import Data.List
 import Data.FiniteMap
 
 ---------------------------------------