Commit 6d22763e authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix some more written-but-not-cleaned files

parent 31afed7c
module A where
data T = A Int | B Float deriving Eq
f :: Int -> Int
f x = x + 3
test('prog002', extra_clean(['A.hi']), ghci_script, ['prog002.script'])
test('prog002', extra_clean(['A.hs', 'A.hi', 'A.o']),
ghci_script, ['prog002.script'])
module D where
-- data types and an instance
data D a = A Int | B Float deriving Eq
newtype N a = N Double
type T a = (Int,Double)
-- a class
class C a where c :: a -> Int
-- a function
d :: Float -> Float
d x = x / 3
extra_clean(['D.hi', 'C.hi', 'C.o', 'B.hi', 'B.o', 'A', 'A.hi', 'A.o',
extra_clean(['D.hs', 'D.hi', 'C.hi', 'C.o', 'B.hi', 'B.o',
'A', 'A.hi', 'A.o', 'a.out']),
......@@ -43,7 +43,7 @@ test('ghci024',
test('ghci025', normal, ghci_script, ['ghci025.script'])
test('ghci026', normal, ghci_script, ['ghci026.script'])
test('ghci027', normal, ghci_script, ['ghci027.script'])
test('ghci027', extra_clean(['ghci027.hs']), ghci_script, ['ghci027.script'])
test('ghci028', normal, ghci_script, ['ghci028.script'])
test('ghci029', normal, ghci_script, ['ghci029.script'])
test('ghci030', normal, ghci_script, ['ghci030.script'])
-- Test for #1617
module Main where
import Prelude ()
--import Control.Monad (mplus)
import qualified Control.Monad (mplus)
......@@ -4,6 +4,6 @@
extra_clean(['A.hi', 'A.hi-boot', 'A.o', 'A.o-boot',
'B.hi', 'B.o', 'C.hi', 'C.o',
'Main.hi', 'Main.o']),
'Main', 'Main.exe', 'Main.hi', 'Main.o']),
['Main -v0', ''])
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