matebeamter/src/Util.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
module Util where

import Servant hiding (addHeader)
import Servant.Client.Core.Request
import Servant.Client.Core.Auth
import Servant.Client.Core.Request (addHeader)

import qualified Data.Text as T
import Data.Text.Lazy.Encoding

import Data.ByteString.Builder

import Data.List (intercalate)
import Data.List.Split (chunksOf)

import Data.String (fromString)

import Web.Cookie

import Text.Printf (printf)

authenticateReq
  :: ToHttpApiData a
  => a
  -> Servant.Client.Core.Request.Request
  -> Servant.Client.Core.Request.Request
authenticateReq s req = addHeader "Authentication" s req

type instance AuthClientData (AuthProtect "header-auth") = String

setCookie
  :: SetCookie
  -> Request
  -> Request
setCookie c = addHeader "Set-Cookie" (decodeUtf8 . toLazyByteString $ renderSetCookie c)

formatMoney :: Int -> T.Text
formatMoney amount = pre <> t <> "," <> c
  where
    pre = if amount < 0
      then "-"
      else ""
    t = fromString $ reverse (intercalate "." $ chunksOf 3 $ reverse $ fst sp)
    c = fromString $ snd sp
    sp = tail <$>
      break (== '.') (printf "%.2f" (abs amount))