From 4ca9335f063fb1493c8147833dd6994b91c4e6c5 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Tue, 2 Oct 2018 21:05:31 +0200
Subject: [PATCH] delete session on home screen

---
 Handler/Home.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Handler/Home.hs b/Handler/Home.hs
index a0dde1a..41685c7 100644
--- 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