diff options
| author | simonpj <unknown> | 1997-01-06 21:10:27 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1997-01-06 21:10:27 +0000 |
| commit | 8f7ac3fe40d3d55743b824deab655d0797a1c55f (patch) | |
| tree | 874eef228e0257539f87caefec7bbc471e08fdd0 /ghc/compiler/simplStg/LambdaLift.lhs | |
| parent | b437dc065099e891083dde8549e06d824461e2d2 (diff) | |
| download | haskell-8f7ac3fe40d3d55743b824deab655d0797a1c55f.tar.gz | |
[project @ 1997-01-06 21:08:42 by simonpj]
Pragmas in interface files added
Diffstat (limited to 'ghc/compiler/simplStg/LambdaLift.lhs')
| -rw-r--r-- | ghc/compiler/simplStg/LambdaLift.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ghc/compiler/simplStg/LambdaLift.lhs b/ghc/compiler/simplStg/LambdaLift.lhs index 29ed3952b6..367577ef13 100644 --- a/ghc/compiler/simplStg/LambdaLift.lhs +++ b/ghc/compiler/simplStg/LambdaLift.lhs @@ -148,6 +148,7 @@ liftExpr expr@(StgCon con args lvs) = returnLM (expr, emptyLiftInfo) liftExpr expr@(StgPrim op args lvs) = returnLM (expr, emptyLiftInfo) liftExpr expr@(StgApp (StgLitArg lit) args lvs) = returnLM (expr, emptyLiftInfo) +liftExpr expr@(StgApp (StgConArg con) args lvs) = returnLM (expr, emptyLiftInfo) liftExpr expr@(StgApp (StgVarArg v) args lvs) = lookUp v `thenLM` \ ~(sc, sc_args) -> -- NB the ~. We don't want to -- poke these bindings too early! |