[commit: haddock] ghc-head, wip/revert-ttg-2017-11-20, wip/ttg3-2017-11-12, wip/ttg4-constraints-2017-11-13: Match Trees that Grow in GHC for HsExpr (9f054dc)

git at git.haskell.org git at git.haskell.org
Mon Nov 20 21:12:21 UTC 2017


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

On branches: ghc-head,wip/revert-ttg-2017-11-20,wip/ttg3-2017-11-12,wip/ttg4-constraints-2017-11-13
Link       : http://git.haskell.org/haddock.git/commitdiff/9f054dc365379c66668de6719840918190ae6e44

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

commit 9f054dc365379c66668de6719840918190ae6e44
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Fri Nov 10 14:07:41 2017 +0200

    Match Trees that Grow in GHC for HsExpr


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

9f054dc365379c66668de6719840918190ae6e44
 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 9388e5c..3d7575e 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
@@ -84,9 +84,9 @@ variables =
     everythingInRenamedSource (var `Syb.combine` rec)
   where
     var term = case cast term of
-        (Just ((GHC.L sspan (GHC.HsVar name)) :: GHC.LHsExpr GHC.GhcRn)) ->
+        (Just ((GHC.L sspan (GHC.HsVar _ name)) :: GHC.LHsExpr GHC.GhcRn)) ->
             pure (sspan, RtkVar (GHC.unLoc name))
-        (Just (GHC.L _ (GHC.RecordCon (GHC.L sspan name) _ _ _))) ->
+        (Just (GHC.L _ (GHC.RecordCon _ (GHC.L sspan name) _))) ->
             pure (sspan, RtkVar name)
         _ -> empty
     rec term = case cast term of



More information about the ghc-commits mailing list