Stuce/todo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

readme + refactor

Browse source
This commit is contained in:
stuce-bot 2025-05-19 15:42:48 +02:00
parent b6f757c35e
commit 045908d7c3
5 changed files with 72 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/FileActions.hs
View file

@ -16,7 +16,7 @@ readF folder file = do
content <- readFile (folder <> file)
let itemsAsStrings = lines content
-- TODO: check if can simplify this step by making read work on list of items (i suppose it doesnt yet)
let itemsAsObjects = map TR.read itemsAsStrings :: [TodoListItem]
let itemsAsObjects = map read itemsAsStrings :: [TodoListItem]
return itemsAsObjects
writeF folder file content = do
let result = show content