diff --git a/Gitit.hs b/Gitit.hs index abe1840b7..6eff2eceb 100644 --- a/Gitit.hs +++ b/Gitit.hs @@ -960,7 +960,9 @@ logoutUser _ params = do let key = pSessionKey params let destination = pDestination params case key of - Just k -> update $ DelSession k + Just k -> do + update $ DelSession k + addCookie 0 (mkCookie "sid" "") -- make cookie expire immediately, effectively deleting it Nothing -> return () seeOther ("/" ++ substitute " " "%20" destination) $ toResponse $ p << "You have been logged out."