-- Pretty printing for output JSON : fields are sorted by keys
comp :: T.Text -> T.Text -> Ordering
comp = keyOrder ["title","status"] `mappend` comparing T.length
comp :: T.Text -> T.Text -> Ordering
comp = keyOrder ["title","status"] `mappend` comparing T.length
comp = keyOrder ["title","status"] `mappend` comparing T.length