From d760c256d9847e64a86ff13a4a5210481606b224 Mon Sep 17 00:00:00 2001
From: Hendrik Jaeger <henk@hnjs.ch>
Date: Wed, 9 Oct 2013 21:36:58 +0200
Subject: On branch master

Initial commit

Changes to be committed:

      new file:   diddohs.hs
        ADDED: first attempt
---
 diddohs.hs | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 diddohs.hs

(limited to 'diddohs.hs')

diff --git a/diddohs.hs b/diddohs.hs
new file mode 100644
index 0000000..fdc1d0d
--- /dev/null
+++ b/diddohs.hs
@@ -0,0 +1,36 @@
+import System.Environment
+import System.IO
+import Options.Applicative
+import Data.Time
+
+data Args = Args
+  { entry :: String
+--  , time :: Time
+--  , verbose :: Bool
+--  , file :: String
+}
+
+runWithOptions :: Args -> IO ()
+runWithOptions opts =
+  putStrLn ( entry opts ++ " saved." )
+
+main :: IO ()
+main = execParser opts >>= runWithOptions
+  where
+    parser = Args <$> argument str (metavar "ENTRY")
+    opts = info parser mempty
+
+-- main = getArgs >>= parse
+
+-- parse [] = getLine >>= saveActivity "actlog.txt"
+-- parse ["add"] = getLine >>= saveActivity "actlog.txt"
+-- parse ["new"] = getLine >>= saveActivity "actlog.txt"
+-- parse ("add":entry) = saveActivity "actlog.txt" $ unwords entry
+-- parse ("new":entry) = saveActivity "actlog.txt" $ unwords entry
+-- parse ("-f":
+
+-- saveActivity file act = do
+--   zoneTime <- fmap show Data.Time.getZonedTime
+--   appendFile "actlog.txt" (zoneTime ++ "\t" ++ act ++ "\n")
+--   hPutStrLn stderr ("\"" ++ zoneTime ++ "\t" ++ act ++ "\"" ++ " saved.")
+
-- 
cgit v1.2.3