nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

delete session on home screen

Browse source
This commit is contained in:
nek0 2018-10-02 21:05:31 +02:00
parent 5f4f7678c5
commit 4ca9335f06
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Handler/Home.hs
View file

@ -28,6 +28,7 @@ import Data.Time.Calendar (addDays)
-- inclined, or create a single monolithic file. -- inclined, or create a single monolithic file.
getHomeR :: Handler Html getHomeR :: Handler Html
getHomeR = do getHomeR = do
deleteSession "pinentry"
settings <- getsYesod appSettings settings <- getsYesod appSettings
beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent] beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent]
today <- liftIO $ utctDay <$> getCurrentTime today <- liftIO $ utctDay <$> getCurrentTime