Load tasks from file

src/TaskMachine/TaskList.hs

@@ -2,13 +2,28 @@
 
 module TaskMachine.TaskList
   ( LTask(..)
+  , fromTasks
+  , loadLTasks
   ) where
 
+import qualified Data.Vector         as V
+import           Text.Megaparsec
+
 import           TaskMachine.Todotxt
 
 data LTask = LTask
   { ltaskNumber :: Integer
   -- ^ Sort by this number to get the original order of the tasks
-  , ltaskTast   :: Task
+  , ltaskTask   :: Task
   -- ^ The 'Task' itself
-  }
+  } deriving (Show)
+
+fromTasks :: [Task] -> [LTask]
+fromTasks = zipWith LTask [1..]
+
+loadLTasks :: FilePath -> IO (Either String (V.Vector LTask))
+loadLTasks file = do
+  content <- readFile file
+  case parseTasks file content of
+    Right tasks     -> pure $ Right $ V.fromList $ fromTasks tasks
+    Left parseError -> pure $ Left $ show parseError