`_ <- mapM` --> `mapM_`
[ghc.git] / testsuite / tests / ghci.debugger / Test.hs
1 module Test.Test2 where
2 import Data.Typeable
3
4 data Show1 = S1 Char Char Char
5 deriving Typeable
6
7 data Strict = S2 Char !Char
8
9 data Opaque = forall a. O a
10 data List1 a = Nil | a :^ (List1 a)
11 deriving Show
12
13 newtype MyInt = My Int
14 deriving (Eq,Show,Num, Enum)
15
16 newtype MkT a = MkT a
17 deriving (Show)
18
19 newtype MkT2 a = MkT2 (MkT a)
20 deriving Show
21
22 data Param2 s r = P2 (FakeSTRef r (s(Param2 s r)))
23 | P2Nil
24 data FakeSTRef r s = Ref s
25
26 testParam2 = O (P2 (Ref P2Nil))
27
28 infixr 5 :^
29 --test T{t=t1} = undefined
30
31 instance Show Show1 where
32 show (S1 a b c) = show (a)
33
34 type Just1 = Maybe
35
36
37 data Unary = Unary deriving Show
38
39 poly :: a -> ()
40 poly x = seq x ()