Commit 8c5e24cb authored by Camil Staps's avatar Camil Staps
Browse files

Put back some fields in results

parent 524e88d5
......@@ -87,13 +87,17 @@ makeResult orgsearchtype tdes usedsyns (entry, annots) db
, unifier = toStrUnifier <$> unif
, required_context = required_context
, cls = cls
, constructor_of = Nothing // TODO
, recordfield_of = Nothing // TODO
, constructor_of = case fe.fe_kind of
Constructor -> let (Just (Func _ r _)) = fe.fe_type in Just $ concat $ print False r
_ -> Nothing
, recordfield_of = case fe.fe_kind of
RecordField -> let (Just (Func [t:_] _ _)) = fe.fe_type in Just $ concat $ print False t
_ -> Nothing
, generic_derivations = Nothing // TODO
, param_doc = Nothing // TODO
, generic_var_doc = Nothing // TODO
, result_doc = Nothing // TODO
, type_doc = Nothing // TODO
, param_doc = docParams <$> fe.fe_documentation
, generic_var_doc = docVars <$> fe.fe_documentation
, result_doc = docResults <$> fe.fe_documentation
, type_doc = concat <$> print False <$> (docType =<< fe.fe_documentation)
}), db)
with
toStrUnifier :: Unifier -> StrUnifier
......@@ -139,14 +143,14 @@ makeResult orgsearchtype tdes usedsyns (entry, annots) db
{ type = concat $ print False tde.tde_typedef
, type_instances = [] // TODO
, type_derivations = [] // TODO
, type_field_doc = Nothing // TODO
, type_constructor_doc = Nothing // TODO
, type_representation_doc = Nothing // TODO
, type_field_doc = docFields =<< tde.tde_doc
, type_constructor_doc = map ((=<<) docDescription) <$> (docConstructors =<< tde.tde_doc)
, type_representation_doc = join (docRepresentation =<< tde.tde_doc)
}), db)
| entry =: (ModuleEntry _)
# (ModuleEntry me) = entry
= (ModuleResult (general,
{ module_is_core = False // TODO
{ module_is_core = me.me_is_core
}), db)
| entry =: (ClassEntry _)
# (ClassEntry ce) = entry
......
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