forge/Vervis
1
0
Fork 0
Code Pull requests Activity

On app start, launch only verified Persons

Browse source
This commit is contained in:
Pere Lev 2023-06-10 10:56:02 +03:00
parent a41356c261
commit d5d6b0af61
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Vervis/Application.hs
View file

@ -344,7 +344,7 @@ makeFoundation appSettings = do
loadTheater :: Env -> WorkerDB [(LocalActorBy Key, Env, Verse -> Act (Either Text Text, Act (), Next))] loadTheater :: Env -> WorkerDB [(LocalActorBy Key, Env, Verse -> Act (Either Text Text, Act (), Next))]
loadTheater env = concat <$> sequenceA loadTheater env = concat <$> sequenceA
[ selectAll LocalActorPerson [ selectAllWhere LocalActorPerson (PersonVerified ==. True)
, selectAll LocalActorGroup , selectAll LocalActorGroup
, selectAll LocalActorRepo , selectAll LocalActorRepo
, selectAll LocalActorDeck , selectAll LocalActorDeck
@ -358,6 +358,14 @@ makeFoundation appSettings = do
selectAll makeLocalActor = selectAll makeLocalActor =
map (\ xid -> (makeLocalActor xid, env, behave actorBehavior xid)) <$> map (\ xid -> (makeLocalActor xid, env, behave actorBehavior xid)) <$>
selectKeysList [] [] selectKeysList [] []
selectAllWhere
:: (PersistRecordBackend a SqlBackend, VervisActor a)
=> (Key a -> LocalActorBy Key)
-> Filter a
-> WorkerDB [(LocalActorBy Key, Env, Verse -> Act (Either Text Text, Act (), Next))]
selectAllWhere makeLocalActor filt =
map (\ xid -> (makeLocalActor xid, env, behave actorBehavior xid)) <$>
selectKeysList [filt] []
startPersonLauncher :: Theater -> Env -> IO (MVar (PersonId, MVar Bool)) startPersonLauncher :: Theater -> Env -> IO (MVar (PersonId, MVar Bool))
startPersonLauncher theater env = do startPersonLauncher theater env = do