[commit: haddock] mpickering/import: Change for IEThingWith (e2e4281)

[git at git.haskell.org]

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

On branch  : mpickering/import
Link       : http://git.haskell.org/haddock.git/commitdiff/e2e42810192fff1cf68255011c55ac1fd557ca47

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

commit e2e42810192fff1cf68255011c55ac1fd557ca47
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Sun Nov 1 12:08:58 2015 +0000

    Change for IEThingWith


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

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

diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index 8f3b9f9..5bef201 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -502,7 +502,7 @@ mkExportItems
     lookupExport (IEVar (L _ x))         = declWith x
     lookupExport (IEThingAbs (L _ t))    = declWith t
     lookupExport (IEThingAll (L _ t))    = declWith t
-    lookupExport (IEThingWith (L _ t) _ _) = declWith t
+    lookupExport (IEThingWith (L _ t) _ _ _) = declWith t
     lookupExport (IEModuleContents (L _ m)) =
       moduleExports thisMod m dflags warnings gre exportedNames decls modMap instIfaceMap maps fixMap splices
     lookupExport (IEGroup lev docStr)  = return $