Verified Commit 412bf462 authored by Camil Staps's avatar Camil Staps
Browse files

Propagate syntax_doc_locations again

parent 79a3b84f
......@@ -149,12 +149,14 @@ instance getLocation FunctionEntry where getLocation fe = Just fe.fe_loc
instance getLocation TypeDefEntry where getLocation tde = Just tde.tde_loc
instance getLocation ModuleEntry where getLocation me = Just me.me_loc
instance getLocation ClassEntry where getLocation ce = Just ce.ce_loc
instance getLocation SyntaxEntry where getLocation se = Just $ Builtin se.SyntaxEntry.syntax_title se.syntax_doc_locations
instance getLocation CloogleEntry
where
getLocation (FunctionEntry e) = getLocation e
getLocation (TypeDefEntry e) = getLocation e
getLocation (ModuleEntry e) = getLocation e
getLocation (ClassEntry e) = getLocation e
getLocation (SyntaxEntry e) = getLocation e
getLocation _ = Nothing
getLibrary :: !Location -> Maybe Name
......
Markdown is supported
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