diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-02-17 14:55:06 +0000 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-02-20 13:33:12 -0500 |
| commit | 8a9b57f6c16e712e8931d9ed6c7d863e27208242 (patch) | |
| tree | ef5fe4f60ffde83b9994d908d2a6f33eec01a3af /compiler/deSugar | |
| parent | 2d5be63d1140a409eb18d1a77d439053844f7ce7 (diff) | |
| download | haskell-8a9b57f6c16e712e8931d9ed6c7d863e27208242.tar.gz | |
Kill off the remaining Rec []
The desugarer was producing an empty Rec group, which is never
supposed to happen. This small patch stops that happening.
Next up: Lint should check.
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 efe3e7a8da..0b115cb902 100644 --- a/compiler/deSugar/DsBinds.hs +++ b/compiler/deSugar/DsBinds.hs @@ -193,7 +193,7 @@ dsHsBind dflags ; let rhs = core_wrap $ mkLams tyvars $ mkLams dicts $ mkCoreLets ds_binds $ - Let core_bind $ + mkLet core_bind $ Var local ; (spec_binds, rules) <- dsSpecs rhs prags @@ -242,7 +242,7 @@ dsHsBind dflags ; ds_binds <- dsTcEvBinds_s ev_binds ; let poly_tup_rhs = mkLams tyvars $ mkLams dicts $ mkCoreLets ds_binds $ - Let core_bind $ + mkLet core_bind $ tup_expr ; poly_tup_id <- newSysLocalDs (exprType poly_tup_rhs) |