[commit: haddock] wip/ttg-2017-10-13, wip/ttg-2017-10-31: Match changes for wip/ttg-2017-10-13 branch in GHC (a5bdb46)

git at git.haskell.org git at git.haskell.org
Tue Nov 28 11:55:23 UTC 2017


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

On branches: wip/ttg-2017-10-13,wip/ttg-2017-10-31
Link       : http://git.haskell.org/haddock.git/commitdiff/a5bdb46185b7c0b3fced9a7fac9a62883d9d57b7

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

commit a5bdb46185b7c0b3fced9a7fac9a62883d9d57b7
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Tue Oct 17 15:00:02 2017 +0200

    Match changes for wip/ttg-2017-10-13 branch in GHC


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

a5bdb46185b7c0b3fced9a7fac9a62883d9d57b7
 haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
index 57ff72f..d7e264b 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
@@ -118,11 +118,11 @@ binds = everythingInRenamedSource
             pure (sspan, RtkBind name)
         _ -> empty
     pat term = case cast term of
-        (Just ((GHC.L sspan (GHC.VarPat name)) :: GHC.LPat GHC.GhcRn)) ->
+        (Just ((GHC.L sspan (GHC.VarPat _ name)) :: GHC.LPat GHC.GhcRn)) ->
             pure (sspan, RtkBind (GHC.unLoc name))
         (Just (GHC.L _ (GHC.ConPatIn (GHC.L sspan name) recs))) ->
             [(sspan, RtkVar name)] ++ everythingInRenamedSource rec recs
-        (Just (GHC.L _ (GHC.AsPat (GHC.L sspan name) _))) ->
+        (Just (GHC.L _ (GHC.AsPat _ (GHC.L sspan name) _))) ->
             pure (sspan, RtkBind name)
         _ -> empty
     rec term = case cast term of



More information about the ghc-commits mailing list