[commit: haddock] wip/api-ann-hstylit-4: IEThingAbs now carries a Located name (1a507af)

[git at git.haskell.org]

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

On branch  : wip/api-ann-hstylit-4
Link       : http://git.haskell.org/haddock.git/commitdiff/1a507afaa2212634c7b5724ec6ca7e3699b714bf

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

commit 1a507afaa2212634c7b5724ec6ca7e3699b714bf
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Sat Dec 13 12:05:09 2014 +0200

    IEThingAbs now carries a Located name


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

1a507afaa2212634c7b5724ec6ca7e3699b714bf
 src/Haddock/Interface/Create.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 5420ef0..7b13ad6 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -493,7 +493,7 @@ mkExportItems
     Just exports -> liftM concat $ mapM lookupExport exports
   where
     lookupExport (IEVar (L _ x))         = declWith x
-    lookupExport (IEThingAbs t)          = declWith t
+    lookupExport (IEThingAbs (L _ t))    = declWith t
     lookupExport (IEThingAll (L _ t))    = declWith t
     lookupExport (IEThingWith (L _ t) _) = declWith t
     lookupExport (IEModuleContents (L _ m)) =