[commit: haddock] wip/revert-ttg-2017-11-20: Revert "Match Trees that Grow in GHC for HsExpr" (e87993a)

git at git.haskell.org git at git.haskell.org
Tue Nov 28 11:56:46 UTC 2017


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

On branch  : wip/revert-ttg-2017-11-20
Link       : http://git.haskell.org/haddock.git/commitdiff/e87993abec41a6b885564a4d8d8a3355a88fa3d6

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

commit e87993abec41a6b885564a4d8d8a3355a88fa3d6
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Mon Nov 20 22:37:55 2017 +0200

    Revert "Match Trees that Grow in GHC for HsExpr"
    
    This reverts commit 9f054dc365379c66668de6719840918190ae6e44.


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

e87993abec41a6b885564a4d8d8a3355a88fa3d6
 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 3d7575e..9388e5c 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