[commit: haddock] wip/T11028: Changed return type for gadtDeclDetails (628c804)

git at git.haskell.org git at git.haskell.org
Tue Nov 28 11:40:41 UTC 2017


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

On branch  : wip/T11028
Link       : http://git.haskell.org/haddock.git/commitdiff/628c80444e55289cfb74823555f80e1dabfa82ee

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

commit 628c80444e55289cfb74823555f80e1dabfa82ee
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Fri Nov 27 20:16:02 2015 +0200

    Changed return type for gadtDeclDetails


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

628c80444e55289cfb74823555f80e1dabfa82ee
 haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 1 -
 haddock-api/src/Haddock/Interface/Create.hs    | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
index 4ecee41..ee0e6e5 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
@@ -40,7 +40,6 @@ import Name
 import BooleanFormula
 import RdrName ( rdrNameOcc, mkRdrUnqual )
 import PrelNames            ( mkUnboundName )
-import RdrHsSyn  ( gadtDeclDetails )
 
 ppDecl :: Bool -> LinksInfo -> LHsDecl DocName
        -> DocForDecl DocName -> [DocInstance DocName] -> [(DocName, Fixity)]
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs
index e3f6c4c..dbe6b20 100644
--- a/haddock-api/src/Haddock/Interface/Create.hs
+++ b/haddock-api/src/Haddock/Interface/Create.hs
@@ -795,7 +795,7 @@ extractDecl name mdl decl
             getConDeclDetails :: LConDecl Name -> HsConDeclDetails Name
             getConDeclDetails (L _ ConDeclH98 { con_details = details}) = details
             getConDeclDetails (L _ ConDeclGADT { con_type = ty       }) = details
-              where (details,_,_) = gadtDeclDetails ty
+              where (details,_,_,_) = gadtDeclDetails ty
         in case matches of
           [d0] -> extractDecl name mdl (noLoc . InstD $ DataFamInstD d0)
           _ -> error "internal: extractDecl (ClsInstD)"



More information about the ghc-commits mailing list