diff --git a/Handler/CashCheck.hs b/Handler/CashCheck.hs index 10faa62..a40e892 100644 --- a/Handler/CashCheck.hs +++ b/Handler/CashCheck.hs @@ -14,8 +14,9 @@ postCashCheckR = do ((res, _), _) <- runFormPost createCashCheckForm case res of FormSuccess c -> do + currentTime <- liftIO getCurrentTime runDB $ insert_ c - runDB $ insert_ $ Cashier (cashCheckBalance c) + runDB $ insert_ $ Cashier (cashCheckBalance c) currentTime setMessage "Kassensturz durchgeführt. Kasse aktualisiert" redirect $ HomeR _ -> do diff --git a/Handler/Common.hs b/Handler/Common.hs index e18156f..6deb05d 100644 --- a/Handler/Common.hs +++ b/Handler/Common.hs @@ -33,7 +33,8 @@ updateCashier amount desc = do runDB $ update (entityKey entCash) [CashierBalance +=. amount] runDB $ insert_ trans Nothing -> do - runDB $ insert_ $ Cashier amount + currentTime <- liftIO getCurrentTime + runDB $ insert_ $ Cashier amount currentTime runDB $ insert_ trans getCashierBalance :: Handler Int diff --git a/config/models b/config/models index 4ed043b..3e9291f 100644 --- a/config/models +++ b/config/models @@ -19,6 +19,7 @@ Transaction deriving Typeable Show Cashier balance Int + created UTCTime deriving Typeable Show CashCheck balance Int