cleaning

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

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"