This commit is contained in:
nek0 2019-11-01 12:22:36 +01:00
parent 280cddbb70
commit 723e0d8e5f
2 changed files with 1 additions and 7 deletions

View file

@ -41,12 +41,6 @@ import qualified "mateamt" Types as MT
import Types import Types
import API import API
setCookie
:: SetCookie
-> Request
-> Request
setCookie c = addHeader "Set-Cookie" (decodeUtf8 . toLazyByteString $ renderSetCookie c)
formatMoney :: Int -> T.Text formatMoney :: Int -> T.Text
formatMoney amount = pre <> t <> "," <> c formatMoney amount = pre <> t <> "," <> c
where where

View file

@ -111,7 +111,7 @@ buyConfirmPage l10n locale uid ziptups total forceBuy mcookie =
H.! HA.type_ "text" H.! HA.type_ "text"
H.! HA.value (fromString $ T.unpack $ formatMoney total) H.! HA.value (fromString $ T.unpack $ formatMoney total)
H.! HA.disabled "" H.! HA.disabled ""
H.toHtml ("" :: T.Text) -- TODO: ask for currency symbol -- H.toHtml ("€" :: T.Text) -- TODO: ask for currency symbol
H.div H.! HA.class_ "form-group optional" $ H.div H.! HA.class_ "form-group optional" $
H.button H.button
H.! HA.class_ "btn btn-default" H.! HA.class_ "btn btn-default"