[commit: haddock] wip/ttg2-2017-11-10: Match Trees that Grow in GHC for HsExpr (d923743)

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


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

On branch  : wip/ttg2-2017-11-10
Link       : http://git.haskell.org/haddock.git/commitdiff/d9237433e15f577b214fca260521c3ada52cc27e

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

commit d9237433e15f577b214fca260521c3ada52cc27e
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


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

d9237433e15f577b214fca260521c3ada52cc27e
 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..2a47760 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