From d79e03e95637e733a254c2a4bf3d8671407816d2 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Thu, 28 Sep 2017 15:12:14 +0200
Subject: [PATCH] change triggering

---
 Handler/ShowChallenge.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Handler/ShowChallenge.hs b/Handler/ShowChallenge.hs
index 827fe5f..c0e7cfb 100644
--- a/Handler/ShowChallenge.hs
+++ b/Handler/ShowChallenge.hs
@@ -118,13 +118,13 @@ postChallengeSubmissionR name = do
 
 postTriggerRemotelyR :: Handler TypedContent
 postTriggerRemotelyR = do
-  (Just token) <- lookupPostParam "token"
+  (Just localId) <- lookupPostParam "id"
   (Just name) <- lookupPostParam "challenge"
   (Just url) <- lookupPostParam "url"
   mBranch <- lookupPostParam "branch"
   let branch = fromMaybe "master" mBranch
   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
   if isPermitted
     then