20 lines
535 B
Haskell
20 lines
535 B
Haskell
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
|