From bfe94012ade96a7fa019d596c7639208a992470c Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 13 Jun 2012 13:06:03 +0100 Subject: Remove lots of commented out 'in' keywords --- compiler/codeGen/CgCase.lhs | 1 - compiler/codeGen/CgForeignCall.hs | 1 - 2 files changed, 2 deletions(-) (limited to 'compiler/codeGen') 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 -- cgit v1.2.1