From 3a53d9ca1ae26841b59512e0ab3724fe4b649284 Mon Sep 17 00:00:00 2001
From: Simon Goller <neosam@posteo.de>
Date: Sun, 20 Mar 2016 22:25:58 +0100
Subject: [PATCH] Added version to state sav.

---
 src/Todo/Todo.hs | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/src/Todo/Todo.hs b/src/Todo/Todo.hs
index ce11301..fadc727 100644
--- a/src/Todo/Todo.hs
+++ b/src/Todo/Todo.hs
@@ -87,6 +87,7 @@ import Control.Exception (SomeException, try)
 
 -- | Overall task management state
 data TaskStat = TaskStat {
+  _taskVer :: String,
   _actives :: [ActiveTask],
   _pool :: [PooledTask],
   _today :: Day,
@@ -123,6 +124,23 @@ makeLenses ''PooledTask
 makeLenses ''Task
 
 
+--showStat :: TaskStat -> String
+--showStat ts = "htodo 0.1\n" ++
+--  (ts ^. taskVer) ++ "\n" ++
+--  show (ts ^. actives) ++ "\n" ++
+--  show (ts ^. pool) ++ "\n"
+--
+--instance Show TaskStat where
+--  show = showStat
+--
+--
+--readStat :: Int -> String -> [(Stat, String)]
+--readStat n str =
+--  let [(version, str')] = readsPrec 
+
+
+
+
 -- | Adding days using an 'Int'
 addDays :: Int -> Day -> Day
 addDays i = Time.addDays $ toInteger i
@@ -137,7 +155,7 @@ zeroDay = read "2010-01-01"
 -- The random generator is initialized with seed 0 and will always produce
 -- the same values.  Please set to new value before you use it.
 emptyTaskStat :: TaskStat
-emptyTaskStat = TaskStat [] [] zeroDay (mkStdGen 0)
+emptyTaskStat = TaskStat "0.1" [] [] zeroDay (mkStdGen 0)
 
 -- | Add an active task to the state
 addActiveTaskM:: (String, String, Float, Int) -> State TaskStat ()