dsrun008.hs\should_run\deSugar\tests\testsuite - delta/haskell.git - gitlab.haskell.org: ghc/ghc.git

index : delta/haskell.git

gitlab.haskell.org: ghc/ghc.git

summary refs log tree commit diff

path: root/testsuite/tests/deSugar/should_run/dsrun008.hs

blob: c055da563cfdc721888d4089a7c4eec3c77fcf6c (plain)

1 2	`-- !!! Double irrefutable pattern (bug in Hugs98, 29/8/2001) main = print (case (1,2) of ~(~(2,x)) -> x)`