sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 10:34:53 +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
import Vervis.Import
import Vervis.Import hiding ((==.))
import Data.Char (isDigit)
import Database.Esqueleto
import Data.Char.Local (isAsciiLetter)
checkLoginTemplate :: Field Handler Text -> Field Handler Text
@ -40,13 +42,12 @@ checkLoginTemplate =
in checkBool ok msg
checkLoginUnique :: Field Handler Text -> Field Handler Text
checkLoginUnique = checkM $ \ login -> runDB $ do
let sharer = Sharer
{ sharerIdent = login
, sharerName = Nothing
}
mus <- checkUnique sharer
return $ if isNothing mus
checkLoginUnique = checkM $ \ login -> do
sames <- runDB $ select $ from $ \ sharer -> do
where_ $ lower_ (sharer ^. SharerIdent) ==. lower_ (val login)
limit 1
return ()
return $ if null sames
then Right login
else Left ("This username is already in use" :: Text)