diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-24 14:50:59 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-24 14:50:59 +0000 |
| commit | 8e5313cbb8ffc1663f1a8bc63911105efdda4712 (patch) | |
| tree | 0093c33c1588fd433e24569408957d6a44c8a962 | |
| parent | d3b8991be3875302ca6d1a4ef6e72891e9567dd5 (diff) | |
| download | haskell-8e5313cbb8ffc1663f1a8bc63911105efdda4712.tar.gz | |
Comments only
| -rw-r--r-- | compiler/simplCore/SimplEnv.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/SimplEnv.lhs b/compiler/simplCore/SimplEnv.lhs index b5b91ea75c..d879073e33 100644 --- a/compiler/simplCore/SimplEnv.lhs +++ b/compiler/simplCore/SimplEnv.lhs @@ -1,5 +1,5 @@ % -o% (c) The AQUA Project, Glasgow University, 1993-1998 +% (c) The AQUA Project, Glasgow University, 1993-1998 % \section[SimplMonad]{The simplifier Monad} @@ -399,7 +399,7 @@ doFloatFromRhs lvl rec str rhs (SimplEnv {seFloats = Floats fs ff}) = not (isNilOL fs) && want_to_float && can_float where want_to_float = isTopLevel lvl || exprIsCheap rhs || exprIsExpandable rhs - -- See Note [Float when cheap or expandable] + -- See Note [Float when cheap or expandable] can_float = case ff of FltLifted -> True FltOkSpec -> isNotTopLevel lvl && isNonRec rec |