delete session on home screen

2018-10-02 21:05:31 +02:00 · 2018-10-02 21:05:31 +02:00 · 4ca9335f06
parent 5f4f7678c5
commit 4ca9335f06
1 changed files with 1 additions and 0 deletions
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@ -28,6 +28,7 @@ import Data.Time.Calendar (addDays)
 -- inclined, or create a single monolithic file.
 getHomeR :: Handler Html
 getHomeR = do
+  deleteSession "pinentry"
  settings <- getsYesod appSettings
  beverages <- runDB $ selectList [BeverageAmount !=. 0] [Desc BeverageIdent]
  today <- liftIO $ utctDay <$> getCurrentTime