keField :: Text -> Maybe Text -> Maybe Field
makeField label val = case val of
  Just v  -> Just $ Field (Just label) v True
  Nothing -> Nothing


makeField :: Text -> Maybe Text -> Maybe Field
makeField label val = case val of
  Just v  -> Just $ Field (Just label) v True
  Nothing -> Nothing
makeField label val = case val of
  Just v  -> Just $ Field (Just label) v True
  Nothing -> Nothing