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

added edit page

Browse source
This commit is contained in:
stuce-bot 2025-05-18 23:14:03 +02:00
parent 03fce6f309
commit b07950f797
7 changed files with 128 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

7
app/FileActions.hs
View file

@ -16,14 +16,15 @@ tempFile = "tempFile"
add folder file item = do
content <- TIO.readFile (folder <> file)
let result = content <> item
TIO.writeFile (folder <> tempFile) result
write folder file result
write folder file content = do
TIO.writeFile (folder <> tempFile) content
renameFile (folder <> tempFile) (folder <> file)
delete folder file item = do
content <- TIO.readFile (folder <> file)
let result = T.unlines $ filter (not . item) (T.lines content)
TIO.writeFile (folder <> tempFile) result
renameFile (folder <> tempFile) (folder <> file)
write folder file result
check folder file item = do
content <- TIO.readFile (folder <> file)