implementing database load/save

2018-12-29 20:15:59 -05:00
parent d1e4287745
commit 0adbc510ae
3 changed files with 19 additions and 3 deletions
--- a/app/UI.hs
+++ b/app/UI.hs
@@ -109,7 +109,7 @@ lockSession = do
    else lockSession

 quit :: S.StateT Status IO ()
-quit = return ()
+quit = save

 buildData :: S.StateT Status IO PWData
 buildData = do