Store the sign in token instead of the login in the session cookie

1 files changed, 4 insertions, 7 deletions

diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index ffb575c..d233aa2 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -10,22 +10,20 @@ module Controller.Payment
 
 import Web.Scotty
 
-import Network.HTTP.Types.Status (ok200, badRequest400)
+import Network.HTTP.Types.Status (ok200)
 
 import Database.Persist
 
 import Control.Monad.IO.Class (liftIO)
 
 import Data.Text (Text)
-import qualified Data.Aeson.Types as Json
 
 import qualified Secure
 
-import Json (jsonObject)
+import Json (jsonError)
 
 import Model.Database
 import qualified Model.Payment as P
-import qualified Model.Payer as Payer
 import Model.Frequency
 import Model.Json.Number
 import qualified Model.Json.PaymentId as JP
@@ -58,9 +56,8 @@ deletePayment paymentId =
     if deleted
       then
         status ok200
-      else do
-        status badRequest400
-        jsonObject [("error", Json.String $ getMessage PaymentNotDeleted)]
+      else
+        jsonError (getMessage PaymentNotDeleted)
   )
 
 getPaymentsCount :: ActionM ()