maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change the name User to Account

Browse source 
Next I'll need to add / remove fields from the Account type.
This commit is contained in:
William Carroll 2020-07-25 18:18:59 +01:00
parent 718152ec14
commit d011616564
3 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/App.hs
View file

@ -30,9 +30,9 @@ server pool =
userAddH newUser = liftIO $ userAdd newUser
userGetH name = liftIO $ userGet name
userAdd :: T.User -> IO (Maybe T.Session)
userAdd :: T.Account -> IO (Maybe T.Session)
userAdd newUser = flip runSqlPersistMPool pool $ do
exists <- selectFirst [T.UserName ==. (T.userName newUser)] []
exists <- selectFirst [T.AccountName ==. (T.accountName newUser)] []
case exists of
Nothing -> do
insert newUser
@ -42,9 +42,9 @@ server pool =
})
Just _ -> pure Nothing
userGet :: Text -> IO (Maybe T.User)
userGet :: Text -> IO (Maybe T.Account)
userGet name = flip runSqlPersistMPool pool $ do
mUser <- selectFirst [T.UserName ==. name] []
mUser <- selectFirst [T.AccountName ==. name] []
pure $ entityVal <$> mUser
app :: ConnectionPool -> Application