From 01561b03b6fb59c7b2896841876285b77f66941a Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 18 Mar 2016 00:04:13 +0100 Subject: [PATCH] typo --- Handler/Buy.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Buy.hs b/Handler/Buy.hs index 97e7591..96802b0 100644 --- a/Handler/Buy.hs +++ b/Handler/Buy.hs @@ -51,7 +51,7 @@ postBuyR uId bId = do else do let price = quant * (beveragePrice bev) let sw = price > (userBalance user) - today <- liftIO $ return utctDay =<< getCurrentTime + today <- liftIO $ return . utctDay =<< getCurrentTime runDB $ do update uId [UserTimestamp =. today] update uId [UserBalance -=. price]