@@ -18,4 +18,17 @@ test2 = h
18test3 :: Number
18test3 :: Number
19test3 = ((\b -> b :: b) :: forall b. b -> b) 0
19test3 = ((\b -> b :: b) :: forall b. b -> b) 0
21+test4 :: forall a. (a -> a) -> a -> a
24+ h :: forall b. (b -> b) -> b -> b
30+ j :: forall b. b -> b
21main = Debug.Trace.trace "Done"
34main = Debug.Trace.trace "Done"