diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 13:06:03 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 13:06:03 +0100 |
| commit | bfe94012ade96a7fa019d596c7639208a992470c (patch) | |
| tree | 46ee5a26cf96453f1d64fd0178cf8555e70b2611 /compiler/codeGen | |
| parent | d2bb4777b7d70d99d4c72398796fb1ecfb0b3efa (diff) | |
| download | haskell-bfe94012ade96a7fa019d596c7639208a992470c.tar.gz | |
Remove lots of commented out 'in' keywords
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/CgCase.lhs | 1 | ||||
| -rw-r--r-- | compiler/codeGen/CgForeignCall.hs | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/compiler/codeGen/CgCase.lhs b/compiler/codeGen/CgCase.lhs index dd607de1fc..745bf47710 100644 --- a/compiler/codeGen/CgCase.lhs +++ b/compiler/codeGen/CgCase.lhs @@ -520,7 +520,6 @@ cgAlgAlts gc_flag cc_slot alt_type alts branches = [(dataConTagZ con, blks) | (DataAlt con, blks) <- alts] - -- in return (branches, mb_deflt) diff --git a/compiler/codeGen/CgForeignCall.hs b/compiler/codeGen/CgForeignCall.hs index 600bbbe0df..e957b90b20 100644 --- a/compiler/codeGen/CgForeignCall.hs +++ b/compiler/codeGen/CgForeignCall.hs @@ -59,7 +59,6 @@ cgForeignCall results fcall stg_args live arg_hints = zipWith CmmHinted arg_exprs (map (typeForeignHint.stgArgType) stg_args) - -- in emitForeignCall results fcall arg_hints live |