Garmelon/task-machine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add basic task editing

Browse source
This commit is contained in:
Joscha 2018-09-17 16:21:26 +00:00
parent 902c23eb83
commit 133b0ca9ed
7 changed files with 156 additions and 69 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/TaskMachine/LTask.hs
View file

@ -7,8 +7,8 @@ module TaskMachine.LTask
, saveLTasks
) where
import Data.List
import Data.Function
import Data.Function
import Data.List
import qualified Data.Vector as V
@ -29,7 +29,7 @@ loadLTasks :: FilePath -> IO (Either String (V.Vector LTask))
loadLTasks file = do
content <- readFile file
case parseTasks file content of
Right taskList -> pure $ Right $ V.fromList $ fromTasks taskList
Right taskList -> pure $ Right $ V.fromList $ fromTasks taskList
Left parseError -> pure $ Left $ show parseError
saveLTasks :: V.Vector LTask -> FilePath -> IO ()