[project @ 2000-11-15 14:37:08 by simonpj]

[ghc-hetmet.git] / ghc / compiler / simplStg / SRT.lhs

diff --git a/ghc/compiler/simplStg/SRT.lhs b/ghc/compiler/simplStg/SRT.lhs
index 54b3a35..0b8d20d 100644 (file)
--- a/ghc/compiler/simplStg/SRT.lhs
+++ b/ghc/compiler/simplStg/SRT.lhs
@@ -349,7 +349,7 @@ Case Alternatives
 srtCaseAlts :: UniqFM CafInfo -> (UniqSet Id, UniqFM (UniqSet Id))
        -> Int -> StgCaseAlts -> (StgCaseAlts, UniqSet Id, [Id], Int)
 
-srtCaseAlts rho cont off (StgAlgAlts  t alts dflt) =
+srtCaseAlts rho cont off (StgAlgAlts t alts dflt) =
    srtAlgAlts rho cont off alts [] emptyUniqSet []  
                                  =: \(alts, alts_g, alts_srt, off) ->
    srtDefault rho cont off dflt          =: \(dflt, dflt_g, dflt_srt, off) ->