diff options
Diffstat (limited to 'compiler/simplCore/CallArity.hs')
| -rw-r--r-- | compiler/simplCore/CallArity.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/simplCore/CallArity.hs b/compiler/simplCore/CallArity.hs index e172aefcd7..2cf28a04e7 100644 --- a/compiler/simplCore/CallArity.hs +++ b/compiler/simplCore/CallArity.hs @@ -20,6 +20,7 @@ import CoreUtils ( exprIsHNF, exprIsTrivial ) import UnVarGraph import Demand +import Data.Foldable ( foldl' ) import Control.Arrow ( first, second ) @@ -725,4 +726,4 @@ lubArityEnv :: VarEnv Arity -> VarEnv Arity -> VarEnv Arity lubArityEnv = plusVarEnv_C min lubRess :: [CallArityRes] -> CallArityRes -lubRess = foldl lubRes emptyArityRes +lubRess = foldl' lubRes emptyArityRes |