aboutsummaryrefslogtreecommitdiff
path: root/html-test/tests/Bug8.hs
blob: 18df63c8d3a7f114e31e4d53f608205ba5e59d4f (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
module Bug8 where

infix -->
infix --->

data Typ = Type (String,[Typ])
         | TFree (String, [String])

x --> y = Type("fun",[s,t])
(--->) = flip $ foldr (-->)

s = undefined
t = undefined
main = undefined