Verified Commit 31a99b7c authored by Camil Staps's avatar Camil Staps 🚀

Fix appearance of strictness annotations in recordfield_of

parent ca5fc26b
......@@ -218,8 +218,8 @@ makeResult orgsearchtype allsyns usedsyns (entry, annots) db = case entry of
(Constructor, Just (Func _ r _)) -> Just $ concat $ print False r
_ -> Nothing
, recordfield_of = case (fe.fe_kind,fe.fe_type) of
(RecordField, Just (Func [t:_] _ _)) -> Just $ concat $ print False t
_ -> Nothing
(RecordField, Just (Func [Strict t:_] _ _)) -> Just $ concat $ print False t
_ -> Nothing
, generic_derivations = case derivs of
Nothing -> Nothing
Just ds -> Just $ sortBy ((<) `on` fst)
......
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