[commit: ghc] master: Fix capitalization in message for #13609 (c04bd55)

git at git.haskell.org git at git.haskell.org
Mon May 1 15:10:48 UTC 2017


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/c04bd55a8daaf254436cef02934215d0b4ccfa2f/ghc

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

commit c04bd55a8daaf254436cef02934215d0b4ccfa2f
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Mon May 1 11:06:08 2017 -0400

    Fix capitalization in message for #13609
    
    I had meant to do this before merging but forgot.


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

c04bd55a8daaf254436cef02934215d0b4ccfa2f
 compiler/typecheck/TcAnnotations.hs  | 2 +-
 testsuite/tests/stage1/T13609.stderr | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcAnnotations.hs b/compiler/typecheck/TcAnnotations.hs
index 43d2970..bdf6646 100644
--- a/compiler/typecheck/TcAnnotations.hs
+++ b/compiler/typecheck/TcAnnotations.hs
@@ -37,7 +37,7 @@ warnAnns :: [LAnnDecl Name] -> TcM [Annotation]
 warnAnns [] = return []
 warnAnns anns@(L loc _ : _)
   = do { setSrcSpan loc $ addWarnTc NoReason $
-             (text "Ignoring Ann annotation" <> plural anns <> comma
+             (text "Ignoring ANN annotation" <> plural anns <> comma
              <+> text "because this is a stage-1 compiler without -fexternal-interpreter or doesn't support GHCi")
        ; return [] }
 #else
diff --git a/testsuite/tests/stage1/T13609.stderr b/testsuite/tests/stage1/T13609.stderr
index 0a3c1cd..579f3e5 100644
--- a/testsuite/tests/stage1/T13609.stderr
+++ b/testsuite/tests/stage1/T13609.stderr
@@ -1,3 +1,3 @@
 
 T13609.hs:3:1: warning:
-    Ignoring Ann annotation, because this is a stage-1 compiler without -fexternal-interpreter or doesn't support GHCi
+    Ignoring ANN annotation, because this is a stage-1 compiler without -fexternal-interpreter or doesn't support GHCi



More information about the ghc-commits mailing list