diddohs.hs

   1 import System.Environment
   2 import System.IO
   3 import Options.Applicative
   4 import Data.Time
   5
   6 data Args = Args
   7   { entry :: String
   8 --  , time :: Time
   9 --  , verbose :: Bool
  10 --  , file :: String
  11 }
  12
  13 runWithOptions :: Args -> IO ()
  14 runWithOptions opts =
  15   putStrLn ( entry opts ++ " saved." )
  16
  17 main :: IO ()
  18 main = execParser opts >>= runWithOptions
  19   where
  20     parser = Args <$> argument str (metavar "ENTRY")
  21     opts = info parser mempty
  22
  23 -- main = getArgs >>= parse
  24
  25 -- parse [] = getLine >>= saveActivity "actlog.txt"
  26 -- parse ["add"] = getLine >>= saveActivity "actlog.txt"
  27 -- parse ["new"] = getLine >>= saveActivity "actlog.txt"
  28 -- parse ("add":entry) = saveActivity "actlog.txt" $ unwords entry
  29 -- parse ("new":entry) = saveActivity "actlog.txt" $ unwords entry
  30 -- parse ("-f":
  31
  32 -- saveActivity file act = do
  33 --   zoneTime <- fmap show Data.Time.getZonedTime
  34 --   appendFile "actlog.txt" (zoneTime ++ "\t" ++ act ++ "\n")
  35 --   hPutStrLn stderr ("\"" ++ zoneTime ++ "\t" ++ act ++ "\"" ++ " saved.")
  36