X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FFloatOut.lhs;h=3477467f392a0ccc7881fc2311262e6dfcc6c725;hb=311b1cdfc9b1c311cc53482c461c18cba8885b2a;hp=988bd53015d53474cc51ccb94b8ddf35e5657b55;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/simplCore/FloatOut.lhs b/compiler/simplCore/FloatOut.lhs
index 988bd53..3477467 100644
--- a/compiler/simplCore/FloatOut.lhs
+++ b/compiler/simplCore/FloatOut.lhs
@@ -315,6 +315,10 @@ floatExpr lvl (Note note expr)	-- Other than SCCs
   = case (floatExpr lvl expr)    of { (fs, floating_defns, expr') ->
     (fs, floating_defns, Note note expr') }
 
+floatExpr lvl (Cast expr co)
+  = case (floatExpr lvl expr)	of { (fs, floating_defns, expr') ->
+    (fs, floating_defns, Cast expr' co) }
+
 floatExpr lvl (Let (NonRec (TB bndr bndr_lvl) rhs) body)
   | isUnLiftedType (idType bndr)	-- Treat unlifted lets just like a case
   = case floatExpr lvl rhs	of { (fs, rhs_floats, rhs') ->