Commit b5c2c311 authored by Ian Lynagh's avatar Ian Lynagh

Remove the haskell98 dependency from full-testsuite tests

parent f334a97b
import IO
import Control.Concurrent
import Control.Exception
import Data.List
......
......@@ -3,7 +3,6 @@
import Control.Concurrent
import Control.Exception
import IO
import GHC.Exts ( fork# )
import GHC.IO ( IO(..) )
......
......@@ -5,7 +5,7 @@
-- random delay between 0 and m seconds. We use a semaphore to wait
-- for all the threads to finish.
import Random
import System.Random
import Control.Concurrent
import Control.Exception
......
......@@ -2,7 +2,7 @@
-- [Not strictly a 'deriving' issue]
module Main( main ) where
import Array
import Data.Array
bds :: ((Int,Int),(Int,Int))
bds = ((1,4),(2,5))
......
import Foreign
import Random
import System.Random
--------------------------------------------------------------------------------
......
......@@ -3,8 +3,8 @@ module Main(main) where
import Control.Exception
import Prelude hiding (catch)
import Char
import Ratio
import Data.Char
import Data.Ratio
main = do
-- Enum Int
......
......@@ -3,7 +3,7 @@ module Main(main) where
import Control.Exception
import Prelude hiding (catch)
import Int
import Data.Int
main = do
putStrLn "Testing Enum Int8:"
......
-- !!! Test that List.sortBy is stable.
import List
import Data.List
main = print (sortBy (\(a,b) (a',b')->compare a a')
([1,1,1,1,1,1,1,1,1,1]`zip`[1..10]))
module Main where
import Memo2 ( memo )
import List ( genericLength, genericReplicate )
import System ( getArgs )
import Memo2 ( memo )
import Data.List ( genericLength, genericReplicate )
import System.Environment ( getArgs )
main :: IO ()
main = do (arg:_) <- getArgs
......
......@@ -2,9 +2,9 @@
module DataTypes where
import GenUtils
import Array -- 1.3
import Ix
import Char
import Data.Array -- 1.3
import Data.Ix
import Data.Char
infix 1 =: -- 1.3
(=:) a b = (a,b)
......
......@@ -38,8 +38,8 @@ module GenUtils (
combinePairs,
formatText ) where
import Array -- 1.3
import Ix -- 1.3
import Data.Array -- 1.3
import Data.Ix -- 1.3
import Debug.Trace ( trace )
......
......@@ -3,7 +3,7 @@
import GenUtils
import DataTypes
import Array -- 1.3
import Data.Array -- 1.3
......
......@@ -7,8 +7,8 @@
import Interp
import PrintTEX
import System -- 1.3 (partain)
import Char -- 1.3
import System.Environment -- 1.3 (partain)
import Data.Char -- 1.3
--fakeArgs = "game001.txt"
--fakeArgs = "pca2.pgn"
......
......@@ -3,7 +3,7 @@
import GenUtils
import DataTypes
import Char -- 1.3
import Data.Char -- 1.3
......
......@@ -3,8 +3,8 @@
import GenUtils
import DataTypes
import Array -- 1.3
import Char -- 1.3
import Data.Array -- 1.3
import Data.Char -- 1.3
......
......@@ -8,7 +8,6 @@ The first line just gives the module name. For the moment, I don't
anticipate using any modules (although this may change).
> module Plot where
> import IO
Now we give the type of the function. This consists of a file name, a
list of values, and a function that goes from the appropriate types.
......
\begin{code}
module Arr (
module Array,
module Data.Array,
safezipWith, safezip,
row,
......@@ -28,7 +28,7 @@ module Arr (
-- showsVecList, showsMatList
-- spy,
) where
import Array
import Data.Array
import Numeric
--import Trace
--import IOExtensions(unsafePerformIO)
......
......@@ -6,12 +6,12 @@
land_i, lnot_i, lor_i, lshift_i, rshift_i,
descr,
destr_update, indassoc, lowbound, tabulate, upbound, update, valassoc) where {
import Bits;
import Data.Bits;
-- import Word2;
import Word;
import Complex; -- 1.3
import Array; -- 1.3
-- import Int ( Num(fromInt) );
import Data.Word;
import Data.Complex; -- 1.3
import Data.Array; -- 1.3
-- import Data.Int ( Num(fromInt) );
type Complex_type = Complex Double;
type Array_type b = Array Int b;
type Assoc_type a = (Int, a);
......
module Main (main) -- TEST
where {
import Fast2haskell;
import Complex;--1.3
import Array;--1.3
import Data.Complex;--1.3
import Data.Array;--1.3
c_eps=(5.00000e-06 :: Double);
c_t=True;
......
......@@ -7,7 +7,7 @@
module Funcs_Lexer where
import Char
import Data.Char
--
-- Tokens passed to the parser
......
module Main (main) where
import System
import System.Environment
import LrcPrelude
import Funcs_Parser_Lazy
......
......@@ -3,7 +3,7 @@
--
module Main where
import Char -- 1.3
import Data.Char -- 1.3
--1.3:data Maybe a = Nothing | Just a
......
import Array -- 1.3
import Data.Array -- 1.3
val1, val2 :: Array (Int,Int) Int
val1 = array ((1,2), (2,1)) []
......
......@@ -7,8 +7,8 @@ Date: Mon, 28 Oct 91 17:02:19 GMT
I'm struggling with the following code fragment at the moment:
-}
import Array -- 1.3
import Ix -- 1.3
import Data.Array -- 1.3
import Data.Ix -- 1.3
conv_list :: (Ix a, Ix b) => [a] -> [b] -> [[c]] -> Array (a,b) c -> Array (a,b) c
conv_list [] _ _ ar = ar
......
......@@ -4,7 +4,7 @@
module TcRun025_B where
import List( sort )
import Data.List( sort )
-- This class has no tyvars in its class op context
-- One uses a newtype, the other a data type
......
......@@ -4,8 +4,6 @@
module Main where
import IO
class Foo a where
bar :: a -> [a]
......
{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances #-}
import Monad
class Monad m => C1 m x
class (Monad m, C1 m x) => C2 m x
......
......@@ -5,8 +5,6 @@
module Main where
import Monad
class Monad m => C1 m x
class (C1 m x) => C2 m x where
......
......@@ -4,7 +4,7 @@
module Main where
import List( sort )
import Data.List( sort )
just = [Just "fred",Just "bill"]
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment