appendtodo.hs


1
2
3
4
5
6
7
8

import System.IO

main = do
    todoItem <- getLine
    if null todoItem then return () 
        else (do 
            appendFile "todo.txt" (todoItem ++ "\n")
            main)