[project @ 1996-05-01 18:36:59 by partain]

[ghc-hetmet.git] / ghc / compiler / simplCore / FloatOut.lhs

diff --git a/ghc/compiler/simplCore/FloatOut.lhs b/ghc/compiler/simplCore/FloatOut.lhs
index d65112a..4013004 100644 (file)
--- a/ghc/compiler/simplCore/FloatOut.lhs
+++ b/ghc/compiler/simplCore/FloatOut.lhs
@@ -22,7 +22,7 @@ import Id             ( nullIdEnv, addOneToIdEnv, growIdEnvList, IdEnv(..),
 import Outputable      ( Outputable(..){-instance (,)-} )
 import PprCore         ( GenCoreBinding{-instance-} )
 import PprStyle                ( PprStyle(..) )
-import PprType         -- too lazy to type in all the instances
+import PprType         ( GenTyVar )
 import Pretty          ( ppInt, ppStr, ppBesides, ppAboves )
 import SetLevels       -- all of it
 import TyVar           ( GenTyVar{-instance Eq-} )
@@ -272,6 +272,10 @@ floatExpr env lvl (SCC cc expr)
        -- Note: Nested SCC's are preserved for the benefit of
        --       cost centre stack profiling (Durham)
 
+floatExpr env lvl (Coerce c ty expr)
+  = case (floatExpr env lvl expr)    of { (fs, floating_defns, expr') ->
+    (fs, floating_defns, Coerce c ty expr') }
+
 floatExpr env lvl (Let bind body)
   = case (floatBind env     lvl bind) of { (fsb, rhs_floats, bind', new_env) ->
     case (floatExpr new_env lvl body) of { (fse, body_floats, body') ->