1 --!! pattern-matching failure on functions that return Int#
3 import PrelBase --ghc1.3
5 main = putStr (shows (I# (foo bar1 bar2)) "\n")
7 bar1 = Bar1 40 (39,38) resps
8 bar2 = Bar1 2 ( 1, 0) resps
9 resps = error "1.2 responses"
11 data Response = Response -- stub
14 = Bar1 Int (Int,Int) [Response]
18 foo :: Bar -> Bar -> Int#
20 foo (Bar1 (I# i) _ _) (Bar1 (I# j) _ _) = i +# j