diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-01-23 09:38:15 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-01-23 11:27:22 +0100 |
| commit | 80560e69ca40abb2c94c4e9fa322365f558a6a8b (patch) | |
| tree | ba0122a93709a34daeb4db992651e98f3937dc7e /compiler/deSugar | |
| parent | 2b64e926a628fb2a3710b0360123ea73331166fe (diff) | |
| download | haskell-80560e69ca40abb2c94c4e9fa322365f558a6a8b.tar.gz | |
Typos and grammar in manual/comments
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/DsBinds.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsBinds.hs b/compiler/deSugar/DsBinds.hs index ae18ffdf43..c3704e382e 100644 --- a/compiler/deSugar/DsBinds.hs +++ b/compiler/deSugar/DsBinds.hs @@ -102,7 +102,7 @@ dsTopLHsBinds binds -- | Desugar all other kind of bindings, Ids of strict binds are returned to --- later be forced in the binding gorup body, see Note [Desugar Strict binds] +-- later be forced in the binding group body, see Note [Desugar Strict binds] dsLHsBinds :: LHsBinds Id -> DsM ([Id], [(Id,CoreExpr)]) dsLHsBinds binds = do { MASSERT( allBag (not . isUnliftedHsBind . unLoc) binds ) @@ -1052,7 +1052,7 @@ simplOptExpr occurrence-analyses and simplifies the LHS: (a) Inline any remaining dictionary bindings (which hopefully occur just once) - (b) Substitute trivial lets so that they don't get in the way + (b) Substitute trivial lets, so that they don't get in the way. Note that we substitute the function too; we might have this as a LHS: let f71 = M.f Int in f71 |