diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-09-25 12:31:12 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-09-26 11:13:14 +0200 |
| commit | 7446c7f68bd5addd2f2db0d8d5910fb963869c47 (patch) | |
| tree | 05ecf5d25cdecb2893424cd07b0e7002b32ea2c4 /compiler/simplStg | |
| parent | 2f8e6e7f8696213b95e3461224909c3b2ec4f7aa (diff) | |
| download | haskell-7446c7f68bd5addd2f2db0d8d5910fb963869c47.tar.gz | |
A bunch of typofixes
Diffstat (limited to 'compiler/simplStg')
| -rw-r--r-- | compiler/simplStg/StgCse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplStg/StgCse.hs b/compiler/simplStg/StgCse.hs index a35309c181..6e896176f9 100644 --- a/compiler/simplStg/StgCse.hs +++ b/compiler/simplStg/StgCse.hs @@ -364,7 +364,7 @@ stgCsePairs env0 ((b,e):pairs) mbCons = maybe id (:) -- The RHS of a binding. --- If it is an constructor application, either short-cut it or extend the environment +-- If it is a constructor application, either short-cut it or extend the environment stgCseRhs :: CseEnv -> OutId -> InStgRhs -> (Maybe (OutId, OutStgRhs), CseEnv) stgCseRhs env bndr (StgRhsCon ccs dataCon args) | Just other_bndr <- envLookup dataCon args' env |