nonEmptyJsonText :: String        -- ^ error message
                 -> Text          -- ^ parsed text, returned unchanged if non-empty
                 -> Parser Text
nonEmptyJsonText msg t = do
  if null t
     then fail msg
     else return t
nonEmptyJsonText msg t = do
  if null t
     then fail msg
     else return t