[commit: haddock] wip/ast-annotations-separate: Warnings and deprecations are now located (d25ca57)

[git at git.haskell.org]

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

On branch  : wip/ast-annotations-separate
Link       : http://git.haskell.org/haddock.git/commitdiff/d25ca573e4cfbcda8de9629dc535127b40d77def

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

commit d25ca573e4cfbcda8de9629dc535127b40d77def
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Mon Oct 13 23:35:31 2014 +0200

    Warnings and deprecations are now located


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

d25ca573e4cfbcda8de9629dc535127b40d77def
 src/Haddock/Interface/Create.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 3b29aba..35698b4 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -194,8 +194,8 @@ moduleWarning dflags gre (WarnAll w) = Just $ parseWarning dflags gre w
 
 parseWarning :: DynFlags -> GlobalRdrEnv -> WarningTxt -> Doc Name
 parseWarning dflags gre w = force $ case w of
-  DeprecatedTxt msg -> format "Deprecated: " (concatFS msg)
-  WarningTxt    msg -> format "Warning: "    (concatFS msg)
+  DeprecatedTxt msg -> format "Deprecated: " (concatFS $ map unLoc msg)
+  WarningTxt    msg -> format "Warning: "    (concatFS $ map unLoc msg)
   where
     format x xs = DocWarning . DocParagraph . DocAppend (DocString x)
                   . processDocString dflags gre $ HsDocString xs