From 5bdaa1e4ffe40add10f000ee993e6b500c419a37 Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Sat, 9 Aug 2014 10:58:03 +0800
Subject: add files from home for previous chapters and sandboxes

---
 rmtodo2.hs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 rmtodo2.hs

(limited to 'rmtodo2.hs')

diff --git a/rmtodo2.hs b/rmtodo2.hs
new file mode 100644
index 0000000..3d2e249
--- /dev/null
+++ b/rmtodo2.hs
@@ -0,0 +1,25 @@
+import System.IO
+import System.Directory
+import Data.List
+import Control.Exception
+
+main = do
+    contents <- readFile "todo.txt"
+    let todoTasks = lines contents
+        numberedTasks = zipWith (\n line -> show n ++ " - " ++ line) [0..] todoTasks
+    putStrLn "These are your TO-DO items:"
+    mapM_ putStrLn numberedTasks
+    putStrLn "Which one do you want to delete?"
+    numberString <- getLine
+    let number = read numberString
+        newTodoItems = unlines $ delete (todoTasks !! number) todoTasks
+    bracketOnError (openTempFile "." "temp")
+        (\(tempName,tempHandle) -> do
+            hClose tempHandle
+            removeFile tempName)
+        (\(tempName,tempHandle) -> do
+            hPutStr tempHandle newTodoItems
+            hClose tempHandle
+            removeFile "todo.txt"
+            renameFile tempName "todo.txt")
+
-- 
cgit v1.2.3-70-g09d2