diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-02-14 01:08:42 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-02-14 01:08:42 +0300 |
| commit | 2fce98a06ac84f1cf9e14b51ae9d160531623769 (patch) | |
| tree | 589a0770b9414407fff79d9c80c99f628619174a | |
| parent | 647894e5450d354e0255b705b8fdbe3264514ecb (diff) | |
| download | haskell-wip/forall-keyword.tar.gz | |
Remove 'perhapsForallMsg'wip/forall-keyword
| -rw-r--r-- | compiler/rename/RnTypes.hs | 1 | ||||
| -rw-r--r-- | compiler/rename/RnUnbound.hs | 6 |
2 files changed, 0 insertions, 7 deletions
diff --git a/compiler/rename/RnTypes.hs b/compiler/rename/RnTypes.hs index d36bee5ad1..8e390f0e17 100644 --- a/compiler/rename/RnTypes.hs +++ b/compiler/rename/RnTypes.hs @@ -44,7 +44,6 @@ import DynFlags import HsSyn import RnHsDoc ( rnLHsDoc, rnMbLHsDoc ) import RnEnv -import RnUnbound ( perhapsForallMsg ) import RnUtils ( HsDocContext(..), withHsDocContext, mapFvRn , pprHsDocContext, bindLocalNamesFV, typeAppErr , newLocalBndrRn, checkDupRdrNames, checkShadowedRdrNames ) diff --git a/compiler/rename/RnUnbound.hs b/compiler/rename/RnUnbound.hs index a0fe729a3f..2de2fc1f0c 100644 --- a/compiler/rename/RnUnbound.hs +++ b/compiler/rename/RnUnbound.hs @@ -12,7 +12,6 @@ module RnUnbound ( mkUnboundName , WhereLooking(..) , unboundName , unboundNameX - , perhapsForallMsg , notInScopeErr ) where import GhcPrelude @@ -349,11 +348,6 @@ extensionSuggestions rdrName = text "Perhaps you meant to use RecursiveDo" | otherwise = Outputable.empty -perhapsForallMsg :: SDoc -perhapsForallMsg - = vcat [ text "Perhaps you intended to use ExplicitForAll or similar flag" - , text "to enable explicit-forall syntax: forall <tvs>. <type>"] - qualsInScope :: GlobalRdrElt -> [(ModuleName, HowInScope)] -- Ones for which the qualified version is in scope qualsInScope GRE { gre_name = n, gre_lcl = lcl, gre_imp = is } |