Skip to content
Snippets Groups Projects
Commit 9f054dc3 authored by Alan Zimmerman's avatar Alan Zimmerman
Browse files

Match Trees that Grow in GHC for HsExpr

parent 73a26af8
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
haddock-api/src/Haddock/Backends/Hyperlinker/Ast.hs
+ 2
− 2
View file @ 9f054dc3
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment