-- | conversion for public access
toUser :: InternalUser -> User
toUser = User <$> iUserName <*> iApiKey
toUser :: InternalUser -> User
toUser = User <$> iUserName <*> iApiKey
toUser = User <$> iUserName <*> iApiKey