[commit: haddock] wip/ttg2-2017-11-10: Getting rid of some PostTc (9754628)

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


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

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

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

commit 9754628fbac5b6a0f845502180d0e85662b92c34
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Fri Nov 10 18:07:44 2017 +0200

    Getting rid of some PostTc


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

9754628fbac5b6a0f845502180d0e85662b92c34
 haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
index 2a47760..3d7575e 100644
--- a/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
+++ b/haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
@@ -86,7 +86,7 @@ variables =
     var term = case cast term of
         (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