diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-06 17:26:03 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-06 17:26:03 +0000 |
| commit | 8efaff11e89285c059c868b8a84deae7de3bf0f9 (patch) | |
| tree | 01299956b09d5c2daffbed49f1647affa0ebecb2 /compiler | |
| parent | b0f8cb8aa3422fd0a7cef8eee630333fd9911d2f (diff) | |
| download | haskell-8efaff11e89285c059c868b8a84deae7de3bf0f9.tar.gz | |
Make comments less beautiful in order to pacify Haddock
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/basicTypes/VarSet.hs | 4 | ||||
| -rw-r--r-- | compiler/typecheck/TcErrors.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/basicTypes/VarSet.hs b/compiler/basicTypes/VarSet.hs index 6c920ba523..7b21487d68 100644 --- a/compiler/basicTypes/VarSet.hs +++ b/compiler/basicTypes/VarSet.hs @@ -111,8 +111,8 @@ disjointVarSet s1 s2 = isEmptyVarSet (s1 `intersectVarSet` s2) subVarSet s1 s2 = isEmptyVarSet (s1 `minusVarSet` s2) transCloVarSet :: (VarSet -> VarSet) - -- Map some variables in the set to - -- *extra* variables that should be in it + -- Map some variables in the set to + -- extra variables that should be in it -> VarSet -> VarSet -- (transCloVarSet f s) repeatedly applies f to the set s, adding any -- new variables to s that it finds thereby, until it reaches a fixed diff --git a/compiler/typecheck/TcErrors.hs b/compiler/typecheck/TcErrors.hs index d9b6fc7a47..21adab4f8b 100644 --- a/compiler/typecheck/TcErrors.hs +++ b/compiler/typecheck/TcErrors.hs @@ -277,7 +277,7 @@ reportWanteds ctxt (WC { wc_simple = simples, wc_insol = insols, wc_impl = impli -- See Note [Do not report derived but soluble errors] ; mapBagM_ (reportImplic ctxt1) implics } -- NB ctxt1: don't suppress inner insolubles if there's only a - -- *wanted* insoluble here; but do suppress inner insolubles + -- wanted insoluble here; but do suppress inner insolubles -- if there's a *given* insoluble here (= inaccessible code) where env = cec_tidy ctxt |