[commit: ghc] wip/T15696: Fix FloatIn literal case (431b706)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T15696
Link       : http://ghc.haskell.org/trac/ghc/changeset/431b70638dc98d3ffce93e182c25866ee870c22b/ghc

>---------------------------------------------------------------

commit 431b70638dc98d3ffce93e182c25866ee870c22b
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Fri Oct 12 08:23:50 2018 +0300

    Fix FloatIn literal case


>---------------------------------------------------------------

431b70638dc98d3ffce93e182c25866ee870c22b
 compiler/simplCore/FloatIn.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplCore/FloatIn.hs b/compiler/simplCore/FloatIn.hs
index 2593b1d..3a152ce 100644
--- a/compiler/simplCore/FloatIn.hs
+++ b/compiler/simplCore/FloatIn.hs
@@ -142,7 +142,7 @@ fiExpr :: DynFlags
        -> CoreExprWithFVs   -- Input expr
        -> CoreExpr          -- Result
 
-fiExpr _ to_drop (_, AnnLit lit)     = ASSERT( null to_drop ) Lit lit
+fiExpr _ to_drop (_, AnnLit lit)     = wrapFloats to_drop (Lit lit)
 fiExpr _ to_drop (_, AnnType ty)     = ASSERT( null to_drop ) Type ty
 fiExpr _ to_drop (_, AnnVar v)       = wrapFloats to_drop (Var v)
 fiExpr _ to_drop (_, AnnCoercion co) = wrapFloats to_drop (Coercion co)