[project @ 1997-10-19 22:07:23 by sof]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsGRHSs.lhs

diff --git a/ghc/compiler/deSugar/DsGRHSs.lhs b/ghc/compiler/deSugar/DsGRHSs.lhs
index bf670d5..b22c6fa 100644 (file)
--- a/ghc/compiler/deSugar/DsGRHSs.lhs
+++ b/ghc/compiler/deSugar/DsGRHSs.lhs
@@ -38,8 +38,7 @@ import PrelVals               ( nON_EXHAUSTIVE_GUARDS_ERROR_ID )
 import Outputable      ( PprStyle(..) )
 import SrcLoc          ( SrcLoc{-instance-} )
 import Type             ( SYN_IE(Type) )
-import Unique          ( Unique, otherwiseIdKey )
-import UniqFM           ( Uniquable(..) )
+import Unique          ( Unique, otherwiseIdKey, Uniquable(..) )
 import Util            ( panic )
 \end{code}
 
@@ -59,7 +58,7 @@ dsGuarded :: TypecheckedGRHSsAndBinds
          -> DsM CoreExpr
 
 dsGuarded (GRHSsAndBindsOut grhss binds err_ty)
-  = dsBinds Nothing binds                      `thenDs` \ core_binds ->
+  = dsBinds False{-don't auto scc-} binds       `thenDs` \ core_binds ->
     dsGRHSs err_ty PatBindMatch [] grhss       `thenDs` \ (MatchResult can_it_fail _ core_grhss_fn _) ->
     case can_it_fail of
        CantFail -> returnDs (mkCoLetsAny core_binds (core_grhss_fn (panic "It can't fail")))
@@ -138,8 +137,8 @@ matchGuard (GuardStmt expr _ : stmts) body_result
     returnDs (MatchResult CanFail ty expr_fn cxt)
 
 matchGuard (LetStmt binds : stmts) body_result
-  = matchGuard stmts body_result       `thenDs` \ match_result ->
-    dsBinds Nothing binds              `thenDs` \ core_binds ->
+  = matchGuard stmts body_result         `thenDs` \ match_result ->
+    dsBinds False{-don't auto scc-} binds `thenDs` \ core_binds ->
     returnDs (mkCoLetsMatchResult core_binds match_result)
 
 matchGuard (BindStmt pat rhs _ : stmts) body_result