[commit: haddock] wip/ast-annotations-separate: Make name in IEVar located for pattern annotations (54f89f9)

[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/54f89f9d9e69ca5da91e6507c58dddae75281b26

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

commit 54f89f9d9e69ca5da91e6507c58dddae75281b26
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Mon Oct 27 16:40:20 2014 +0200

    Make name in IEVar located for pattern annotations


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

54f89f9d9e69ca5da91e6507c58dddae75281b26
 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 1eeeae1..527ef3a 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -490,7 +490,7 @@ mkExportItems
     Nothing -> fullModuleContents dflags warnings gre maps fixMap splices decls
     Just exports -> liftM concat $ mapM lookupExport exports
   where
-    lookupExport (IEVar x)             = declWith x
+    lookupExport (IEVar (L _ x))       = declWith x
     lookupExport (IEThingAbs t)        = declWith t
     lookupExport (IEThingAll t)        = declWith t
     lookupExport (IEThingWith t _)     = declWith t