Commit f4738c93 authored by Ian Lynagh's avatar Ian Lynagh

Remove the haskell98 dependency from various tests

parent a7461b4a
......@@ -4,7 +4,7 @@ Exposed-Modules: A
Other-Modules: B.A
C-Sources: hello.c, c_src/hello.c
Extensions: ForeignFunctionInterface
Build-depends: base>=1.0, haskell98
Build-depends: base>=1.0
Executable: testA
Other-Modules: A, MainA
......
module M where
import Char
import Data.Char
{-# INLINE f #-}
f = map ord . map chr
......@@ -4,7 +4,7 @@
module T2856 where
import Ratio
import Data.Ratio
----------------------
class C a where
......
{-# LANGUAGE StandaloneDeriving, DeriveDataTypeable, DeriveFunctor, DeriveFoldable, DeriveTraversable, EmptyDataDecls #-}
module T4302 where
import Ix
import Data.Ix
import Data.Typeable
import Data.Data
import Data.Foldable
......
-- !!! simple examples of deriving Ix
--
module ShouldSucceed where
import Ix
import Data.Ix
data Foo = Foo1 | Foo2 | Foo3 | Foo4 | Foo5 | Foo6 | Foo7 | Foo8
deriving (Eq, Ord, Ix, Show)
......
-- !!! deriving Ix on d. type with nullary constructors
module ShouldSucceed where
import Ix
import Data.Ix
data AD = A | B | C | D deriving (Show, Ord, Eq, Ix)
-- !!! deriving Ix on d. type with one constructor
module ShouldSucceed where
import Ix
import Data.Ix
data Pair a b = Pair a b deriving (Show, Ord, Eq, Ix)
module Main (main)
where
import Char (digitToInt, lexLitChar, readLitChar)
import Data.Char (digitToInt, lexLitChar, readLitChar)
main :: IO ()
main =
......
module Main where
import Char
import Data.Char
import Numeric
header = "Code C P S U L A D"
......
-- !!! conversions: Double <=> Rational/Integer things
--
import Ratio
import Data.Ratio
main = putStr (show r42 ++ "\n" ++
show nu42 ++ ", " ++
......
-- !!! basic Rational operations
--
import Ratio
import Data.Ratio
main
= putStr
......
-- !!! Testing Int and Word
module Main(main) where
import Int
import Word
import Bits
import Ix -- added SOF
import Data.Int
import Data.Word
import Data.Bits
import Data.Ix -- added SOF
import Control.Exception
main :: IO ()
......
import Ratio
import Data.Ratio
main = print (fromRational (1 % 85070591730234615865843651857942052864) :: Float)
......@@ -2,7 +2,7 @@
module ShouldCompile where
import Ix
import Data.Ix
import GHC.Exts
......
......@@ -6,7 +6,7 @@ module Main where
import Prelude hiding (logBase)
import Maybe
import Data.Maybe
-------------------------------------------------------------------------------
......
......@@ -7,7 +7,7 @@
module Main where
import System
import System.Environment
import Numeric
main = do
......
......@@ -8,7 +8,7 @@
module Main where
import IO
import System.IO
import System.IO.Unsafe ( unsafePerformIO )
{-# NOINLINE [0] sndSnd #-}
......
......@@ -4,7 +4,7 @@ module Main where
-- This program develops a space leak if sfoldl isn't compiled with some
-- care. See comment about polymorphic recursion in TcMonoBinds.lhs
import System(getArgs)
import System.Environment (getArgs)
import GHC.IOBase
sfoldl :: (a -> Int -> a) -> a -> [Int] -> a
......
......@@ -2,7 +2,7 @@
-- !!! One method class from Sergey Mechveliani
-- showed up problematic newtype dict rep.
module Main where
import Ratio
import Data.Ratio
class MBConvertible a b where cm :: a -> b -> Maybe b
......
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