diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-02-07 01:57:14 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-02-07 01:57:14 +0000 |
| commit | 1370a4a360ec154b390c1da21d40e446739b24c8 (patch) | |
| tree | 980c5beb71d643ae79a873c38c0753ad0ae002e9 /compiler/stranal | |
| parent | 15575cf8f17fee0fdd3151c5dbb0a0f89b01c708 (diff) | |
| download | haskell-1370a4a360ec154b390c1da21d40e446739b24c8.tar.gz | |
Make some more modules use LazyUniqFM instead of UniqFM
If these modules use UniqFM then we get a stack overflow when compiling
modules that use fundeps. I haven't tracked down the actual cause.
Diffstat (limited to 'compiler/stranal')
| -rw-r--r-- | compiler/stranal/DmdAnal.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs index c4453242ef..66bf92648c 100644 --- a/compiler/stranal/DmdAnal.lhs +++ b/compiler/stranal/DmdAnal.lhs @@ -45,7 +45,7 @@ import Var ( Var ) import VarEnv import TysWiredIn ( unboxedPairDataCon ) import TysPrim ( realWorldStatePrimTy ) -import LazyUniqFM ( plusUFM_C, addToUFM_Directly, lookupUFM_Directly, +import UniqFM ( plusUFM_C, addToUFM_Directly, lookupUFM_Directly, keysUFM, minusUFM, ufmToList, filterUFM ) import Type ( isUnLiftedType, coreEqType, splitTyConApp_maybe ) import Coercion ( coercionKind ) |