module Handler.CashCheck where import Import import Handler.Common getCashCheckR :: Handler Html getCashCheckR = do (cashCheckWidget, enctype) <- generateFormPost createCashCheckForm defaultLayout $ do $(widgetFile "cashCheck") postCashCheckR :: Handler Html postCashCheckR = do ((res, _), _) <- runFormPost createCashCheckForm case res of FormSuccess c -> do currentTime <- liftIO getCurrentTime runDB $ insert_ c runDB $ insert_ $ Cashier (cashCheckBalance c) currentTime setMessage "Kassensturz durchgeführt. Kasse aktualisiert" redirect $ HomeR _ -> do setMessage "Fehler im Kassensturz" redirect $ CashCheckR createCashCheckForm :: Form CashCheck createCashCheckForm = renderDivs $ CashCheck <$> areq currencyField "Gezählter Betrag" Nothing <*> lift (liftIO getCurrentTime)