Data commit

Task/Take-notes-on-the-command-line/Haskell/take-notes-on-the-command-line.hs

@@ -0,0 +1,12 @@
+import System.Environment (getArgs)
+import System.Time (getClockTime)
+
+main :: IO ()
+main = do
+  args <- getArgs
+  if null args
+    then catch (readFile "notes.txt" >>= putStr)
+               (\_ -> return ())
+    else
+      do ct <- getClockTime
+         appendFile "notes.txt" $ show ct ++ "\n\t" ++ unwords args ++ "\n"