blob: 3c1404b319b67088cb5d51656ae26c10db6847d9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE MagicHash #-}
-- !! pattern-matching failure on functions that return Int#
--import PrelBase --ghc1.3
import GHC.Base
main = putStr (shows (I# (foo bar1 bar2)) "\n")
where
bar1 = Bar1 40 (39,38) resps
bar2 = Bar1 2 ( 1, 0) resps
resps = error "1.2 responses"
data Response = Response -- stub
data Bar
= Bar1 Int (Int,Int) [Response]
| Bar2 Int Int#
| Bar3 Int
foo :: Bar -> Bar -> Int#
foo (Bar1 (I# i) _ _) (Bar1 (I# j) _ _) = i +# j
|
