diff options
| author | nineonine <mail4chemik@gmail.com> | 2019-11-17 13:33:22 -0800 |
|---|---|---|
| committer | nineonine <mail4chemik@gmail.com> | 2019-11-17 13:33:22 -0800 |
| commit | 34515e7c94250a8b5b85453a0481d0c8d313a7c5 (patch) | |
| tree | 4e02ec78b241d7085367d6ed41bb04ea58048756 /compiler/deSugar | |
| parent | 2f5ed225b78b32c65d023072d78ae5d176e2f04b (diff) | |
| download | haskell-34515e7c94250a8b5b85453a0481d0c8d313a7c5.tar.gz | |
Fix random typos [skip ci]
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/DsMeta.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs index 6d7f281752..5290d1a978 100644 --- a/compiler/deSugar/DsMeta.hs +++ b/compiler/deSugar/DsMeta.hs @@ -1790,7 +1790,7 @@ repLambda (dL->L _ (Match { m_pats = ps do { xs <- repLPs ps; body <- repLE e; repLam xs body }) ; wrapGenSyms ss lam } -repLambda (dL->L _ m) = notHandled "Guarded labmdas" (pprMatch m) +repLambda (dL->L _ m) = notHandled "Guarded lambdas" (pprMatch m) ----------------------------------------------------------------------------- @@ -2117,7 +2117,7 @@ repMultiIf (MkC alts) = rep2 multiIfEName [alts] repLetE :: Core [TH.DecQ] -> Core TH.ExpQ -> DsM (Core TH.ExpQ) repLetE (MkC ds) (MkC e) = rep2 letEName [ds, e] -repCaseE :: Core TH.ExpQ -> Core [TH.MatchQ] -> DsM( Core TH.ExpQ) +repCaseE :: Core TH.ExpQ -> Core [TH.MatchQ] -> DsM (Core TH.ExpQ) repCaseE (MkC e) (MkC ms) = rep2 caseEName [e, ms] repDoE :: Core [TH.StmtQ] -> DsM (Core TH.ExpQ) |