src/server/Controller/Payment.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

{-# LANGUAGE OverloadedStrings #-}

module Controller.Payment
  ( getPayments
  , createPayment
  , deleteOwnPayment
  ) where

import Web.Scotty

import Network.HTTP.Types.Status (ok200, badRequest400)

import Database.Persist

import Control.Monad.IO.Class (liftIO)

import Data.Text (Text)
import qualified Data.Text.Lazy as TL
import qualified Data.Aeson.Types as Json

import qualified Secure

import Json (jsonObject)

import Model.Database
import qualified Model.Payment as P
import Model.Frequency
import Model.Message.Key (Key(PaymentNotDeleted))

getPayments :: ActionM ()
getPayments =
  Secure.loggedAction (\_ -> do
    (liftIO $ runDb P.getPayments) >>= json
  )

createPayment :: Text -> Int -> Frequency -> ActionM ()
createPayment name cost frequency =
  Secure.loggedAction (\user -> do
    paymentId <- liftIO . runDb $ P.createPayment (entityKey user) name cost frequency
    jsonObject [("id", Json.Number . fromIntegral . keyToInt64 $ paymentId)]
  )

deleteOwnPayment :: Text -> ActionM ()
deleteOwnPayment paymentId =
  Secure.loggedAction (\user -> do
    deleted <- liftIO . runDb $ P.deleteOwnPayment user (textToKey paymentId)
    if deleted
      then
        status ok200
      else do
        status badRequest400
        text . TL.pack . show $ PaymentNotDeleted
  )