hask

{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE DeriveDataTypeable #-} module Main where import System.Environment (getArgs) import Database.SQLite.Simple import System.Console.CmdArgs import Data.List hiding (delete) import Data.Time.Format.Human import Data.Time import Data.Time.Format import Control.Monad (when) data Options = Options { inputMode :: Bool , message…

1

putStrLn "Hello World"…