From 723e0d8e5fd85037802aa715f05fd53ac4cd0f5e Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 1 Nov 2019 12:22:36 +0100 Subject: [PATCH] cleaning --- src/Util.hs | 6 ------ src/View/Buy.hs | 2 +- 2 files changed, 1 insertion(+), 7 deletions(-) diff --git a/src/Util.hs b/src/Util.hs index 23955b5..157d04e 100644 --- a/src/Util.hs +++ b/src/Util.hs @@ -41,12 +41,6 @@ import qualified "mateamt" Types as MT import Types import API -setCookie - :: SetCookie - -> Request - -> Request -setCookie c = addHeader "Set-Cookie" (decodeUtf8 . toLazyByteString $ renderSetCookie c) - formatMoney :: Int -> T.Text formatMoney amount = pre <> t <> "," <> c where diff --git a/src/View/Buy.hs b/src/View/Buy.hs index e000d47..b6aa82e 100644 --- a/src/View/Buy.hs +++ b/src/View/Buy.hs @@ -111,7 +111,7 @@ buyConfirmPage l10n locale uid ziptups total forceBuy mcookie = H.! HA.type_ "text" H.! HA.value (fromString $ T.unpack $ formatMoney total) 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.button H.! HA.class_ "btn btn-default"