todo.hs

import System.IO
import System.IO.Unsafe
import System.Environment
import System.Directory


writeOnFile task = appendFile todoTxt (task ++ "\n")

todoTxt = home ++ "/todo.txt" where
    home = unsafePerformIO getHomeDirectory

listTasks = do
    withFile todoTxt ReadMode $ \handle -> do
        contents <- hGetContents handle
        putStr contents

Linha #2 é para quando uma versão impura não é impura o suficiente.