s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

change triggering

Browse Source
This commit is contained in:
Filip Gralinski 2017-09-28 15:12:14 +02:00
parent 5cad8dcbfe
commit d79e03e956
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/ShowChallenge.hs
View File

@ -118,13 +118,13 @@ postChallengeSubmissionR name = do
postTriggerRemotelyR :: Handler TypedContent postTriggerRemotelyR :: Handler TypedContent
postTriggerRemotelyR = do postTriggerRemotelyR = do
(Just token) <- lookupPostParam "token" (Just localId) <- lookupPostParam "id"
(Just name) <- lookupPostParam "challenge" (Just name) <- lookupPostParam "challenge"
(Just url) <- lookupPostParam "url" (Just url) <- lookupPostParam "url"
mBranch <- lookupPostParam "branch" mBranch <- lookupPostParam "branch"
let branch = fromMaybe "master" mBranch let branch = fromMaybe "master" mBranch
Entity challengeId _ <- runDB $ getBy404 $ UniqueName name Entity challengeId _ <- runDB $ getBy404 $ UniqueName name
[Entity userId _] <- runDB $ selectList [UserTriggerToken ==. Just token] [] [Entity userId _] <- runDB $ selectList [UserLocalId ==. Just localId] []
isPermitted <- canTrigger userId name url isPermitted <- canTrigger userId name url
if isPermitted if isPermitted
then then