summaryrefslogtreecommitdiff
path: root/testsuite/tests/simplCore/should_compile/T5366.stdout
blob: f2f58ea97f6dcb0f363d7e06c6311130bfdb77ec (plain)
1
2
                 case ds of { Bar bx [Occ=Once1] _ [Occ=Dead] -> GHC.Types.I# bx }}]
f = \ (ds :: Bar) -> case ds of { Bar bx bx1 -> GHC.Types.I# bx }