[project @ 2001-05-22 13:43:14 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 bd5636e..46e8b4f 100644 (file)
--- a/ghc/compiler/simplStg/SRT.lhs
+++ b/ghc/compiler/simplStg/SRT.lhs
@@ -145,10 +145,10 @@ Expressions
 \begin{code}
 srtExpr :: SrtOffset -> StgExpr -> (StgExpr, SrtIds, SrtOffset)
 
-srtExpr off e@(StgApp f args)        = (e, [], off)
-srtExpr off e@(StgLit l)             = (e, [], off)
-srtExpr off e@(StgConApp con args)    = (e, [], off)
-srtExpr off e@(StgPrimApp op args ty) = (e, [], off)
+srtExpr off e@(StgApp f args)      = (e, [], off)
+srtExpr off e@(StgLit l)           = (e, [], off)
+srtExpr off e@(StgConApp con args)  = (e, [], off)
+srtExpr off e@(StgOpApp op args ty) = (e, [], off)
 
 srtExpr off (StgSCC cc expr) =
    srtExpr off expr    =: \(expr, srt, off) ->