dsrun007.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/dsrun007.hs

blob: 19a0c641cb388a1b075d1e4b93b5a8c6e37555b4 (plain)

data T = C Int

unpick (C i) = i + 1

main = print (unpick (C{}))