sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 00:44:52 +09:00
Code Issues Activity

New sharer ident checked for CI-uniqueness

Browse source
This commit is contained in:
fr33domlover 2016-05-22 21:24:55 +00:00
parent 1a3f976a81
commit a0d42f9159
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/Vervis/Field/Person.hs
View file

@ -19,9 +19,11 @@ module Vervis.Field.Person
) )
where where
import Vervis.Import import Vervis.Import hiding ((==.))
import Data.Char (isDigit) import Data.Char (isDigit)
import Database.Esqueleto
import Data.Char.Local (isAsciiLetter) import Data.Char.Local (isAsciiLetter)
checkLoginTemplate :: Field Handler Text -> Field Handler Text checkLoginTemplate :: Field Handler Text -> Field Handler Text
@ -40,13 +42,12 @@ checkLoginTemplate =
in checkBool ok msg in checkBool ok msg
checkLoginUnique :: Field Handler Text -> Field Handler Text checkLoginUnique :: Field Handler Text -> Field Handler Text
checkLoginUnique = checkM $ \ login -> runDB $ do checkLoginUnique = checkM $ \ login -> do
let sharer = Sharer sames <- runDB $ select $ from $ \ sharer -> do
{ sharerIdent = login where_ $ lower_ (sharer ^. SharerIdent) ==. lower_ (val login)
, sharerName = Nothing limit 1
} return ()
mus <- checkUnique sharer return $ if null sames
return $ if isNothing mus
then Right login then Right login
else Left ("This username is already in use" :: Text) else Left ("This username is already in use" :: Text)