mkFirm :: Value -> Parser S.SearchResult
mkFirm v@(Object o) = o .: "type_of_entity" >>= flip mkFirm' v
mkFirm :: Value -> Parser S.SearchResult
mkFirm v@(Object o) = o .: "type_of_entity" >>= flip mkFirm' v
mkFirm v@(Object o) = o .: "type_of_entity" >>= flip mkFirm' v