[commit: haddock] ghc-head, wip/T14529: Revert "Match Trees that Grow in GHC for HsExpr" (c3f8a3b)

[git at git.haskell.org]

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

On branches: ghc-head,wip/T14529
Link       : http://git.haskell.org/haddock.git/commitdiff/c3f8a3b396e0051133120d2381e73af8cf9c8951

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

commit c3f8a3b396e0051133120d2381e73af8cf9c8951
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Tue Nov 21 15:50:14 2017 -0500

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


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

c3f8a3b396e0051133120d2381e73af8cf9c8951
 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