diff options
author | Ian Lynagh <igloo@earth.li> | 2012-06-05 00:52:01 +0100 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2012-06-05 03:11:23 +0100 |
commit | 243439e6e77eca548a6583722792d6b96e3f6bcd (patch) | |
tree | 82a7852a205a53f3acfcd5d345a43cb7e284108f /compiler/stranal | |
parent | 50fddb2b046605315f903d9b744780497cc978de (diff) | |
download | haskell-243439e6e77eca548a6583722792d6b96e3f6bcd.tar.gz |
Change how macros like ASSERT are defined
By using Haskell's debugIsOn rather than CPP's "#ifdef DEBUG", we
don't need to kludge things to keep the warning checker happy etc.
Diffstat (limited to 'compiler/stranal')
-rw-r--r-- | compiler/stranal/DmdAnal.lhs | 2 | ||||
-rw-r--r-- | compiler/stranal/WorkWrap.lhs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs index b85c107bea..ddeb1aa864 100644 --- a/compiler/stranal/DmdAnal.lhs +++ b/compiler/stranal/DmdAnal.lhs @@ -44,7 +44,7 @@ import UniqFM ( addToUFM_Directly, lookupUFM_Directly, minusUFM, filterUFM ) import Type ( isUnLiftedType, eqType, tyConAppTyCon_maybe ) import Coercion ( coercionKind ) -import Util ( mapAndUnzip, lengthIs, zipEqual ) +import Util import BasicTypes ( Arity, TopLevelFlag(..), isTopLevel, isNeverActive, RecFlag(..), isRec, isMarkedStrict ) import Maybes ( orElse, expectJust ) diff --git a/compiler/stranal/WorkWrap.lhs b/compiler/stranal/WorkWrap.lhs index 2c365887bc..ec351ab7d8 100644 --- a/compiler/stranal/WorkWrap.lhs +++ b/compiler/stranal/WorkWrap.lhs @@ -27,7 +27,7 @@ import BasicTypes import VarEnv ( isEmptyVarEnv ) import Maybes ( orElse ) import WwLib -import Util ( lengthIs, notNull ) +import Util import Outputable import MonadUtils |