slate-0.13.1.0: app/Main.hs

module Main where

import Data.Semigroup ((<>))
import Lib (execute, initialize, parser)
import Options.Applicative

main :: IO ()
main = do
  initialize
  parsedOpts <- execParser opts
  execute parsedOpts
  where
    opts =
      info
        (parser <**> helper)
        (fullDesc <> progDesc "Slate" <> header "slate - a task taking tool.")