diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-12-21 14:17:31 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-12-23 07:46:37 +0000 |
| commit | 19632501654cac9d84088c69bd4291009292c5c3 (patch) | |
| tree | 7056350b395d00f23451652e2d34b9f4ebad37cc | |
| parent | b55ad1b33a30996a2ec4f85382f9c1cdca42e30f (diff) | |
| download | haskell-19632501654cac9d84088c69bd4291009292c5c3.tar.gz | |
Comments and white space
| -rw-r--r-- | compiler/deSugar/DsExpr.hs | 2 | ||||
| -rw-r--r-- | compiler/deSugar/DsMeta.hs | 6 | ||||
| -rw-r--r-- | compiler/hsSyn/HsUtils.hs | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/compiler/deSugar/DsExpr.hs b/compiler/deSugar/DsExpr.hs index 2fc3974a20..3b9a4cfbb0 100644 --- a/compiler/deSugar/DsExpr.hs +++ b/compiler/deSugar/DsExpr.hs @@ -81,7 +81,7 @@ dsLocalBinds (HsIPBinds binds) body = dsIPBinds binds body ------------------------- dsValBinds :: HsValBinds Id -> CoreExpr -> DsM CoreExpr dsValBinds (ValBindsOut binds _) body = foldrM ds_val_bind body binds -dsValBinds (ValBindsIn _ _) _ = panic "dsValBinds ValBindsIn" +dsValBinds (ValBindsIn {}) _ = panic "dsValBinds ValBindsIn" ------------------------- dsIPBinds :: HsIPBinds Id -> CoreExpr -> DsM CoreExpr diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs index 5153dd96f2..3035e9f845 100644 --- a/compiler/deSugar/DsMeta.hs +++ b/compiler/deSugar/DsMeta.hs @@ -665,9 +665,9 @@ repBangTy ty = do repDerivs :: HsDeriving Name -> DsM (Core TH.CxtQ) repDerivs deriv = do - let clauses - | Just (L _ ctxt) <- deriv = ctxt - | otherwise = [] + let clauses = case deriv of + Nothing -> [] + Just (L _ ctxt) -> ctxt tys <- repList typeQTyConName (rep_deriv . hsSigType) clauses diff --git a/compiler/hsSyn/HsUtils.hs b/compiler/hsSyn/HsUtils.hs index c37785b268..9e8ea9af25 100644 --- a/compiler/hsSyn/HsUtils.hs +++ b/compiler/hsSyn/HsUtils.hs @@ -749,7 +749,7 @@ collect_out_binds :: Bool -> [(RecFlag, LHsBinds id)] -> [id] collect_out_binds ps = foldr (collect_binds ps . snd) [] collect_binds :: Bool -> LHsBindsLR idL idR -> [idL] -> [idL] --- Collect Ids, or Ids + patter synonyms, depending on boolean flag +-- Collect Ids, or Ids + pattern synonyms, depending on boolean flag collect_binds ps binds acc = foldrBag (collect_bind ps . unLoc) acc binds collect_bind :: Bool -> HsBindLR idL idR -> [idL] -> [idL] |