forgot files

Handler/CashCheck.hs

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

templates/cashCheck.hamlet

@@ -0,0 +1,11 @@
+$doctype 5
+
+<h3>Kassensturz
+
+<p>
+  Bitte Kasse zählen und gezählten Betrag in unten stehendes Feld eintragen.
+
+<form method=post enctype=#{enctype}>
+  ^{cashCheckWidget}
+  <div>
+    <input type=submit value="Absenden">