module Main
    ( main
    ) where

import qualified Data.Text.IO as Text.IO
import Data.Maybe (fromMaybe)
import Options.Applicative (execParser)
import SlackBuilder.CommandLine
import SlackBuilder.Updater

main :: IO ()
main = do
    programCommand <- execParser slackBuilderParser
    latestVersion <- case programCommand of
        PackagistCommand packagistArguments ->
            latestPackagist packagistArguments
        TextCommand textArguments -> latestText textArguments

    Text.IO.putStrLn $ fromMaybe "" latestVersion