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"