[commit: ghc] wip/gadtpm: Improved message for -W(no-)too-many-guards (3a42ace)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/gadtpm
Link       : http://ghc.haskell.org/trac/ghc/changeset/3a42acef70c6fc671ae423aaddc2e976505cb196/ghc

>---------------------------------------------------------------

commit 3a42acef70c6fc671ae423aaddc2e976505cb196
Author: George Karachalias <george.karachalias at gmail.com>
Date:   Fri Dec 25 01:07:18 2015 +0100

    Improved message for -W(no-)too-many-guards


>---------------------------------------------------------------

3a42acef70c6fc671ae423aaddc2e976505cb196
 compiler/deSugar/Check.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/deSugar/Check.hs b/compiler/deSugar/Check.hs
index 0795edc..af37de5 100644
--- a/compiler/deSugar/Check.hs
+++ b/compiler/deSugar/Check.hs
@@ -1338,8 +1338,9 @@ warnManyGuards (DsMatchContext kind loc)
   where
     opt_1 = hang (ptext (sLit "-Wno-too-many-guards")) 2 $
       ptext (sLit "to suppress this warning")
-    opt_2 = hang (ptext (sLit "-ffull-guard-reasoning")) 2 $
-      ptext (sLit "to run the full checker (may be non-performant)")
+    opt_2 = hang (ptext (sLit "-ffull-guard-reasoning")) 2 $ vcat
+      [ ptext (sLit "to run the full checker (may increase")
+      , ptext (sLit "compilation time and memory consumption)") ]
 
 dsPmWarn :: DynFlags -> DsMatchContext -> DsM PmResult -> DsM ()
 dsPmWarn dflags ctx@(DsMatchContext kind loc) mPmResult