Use optparse-applicative instead of cmdargs

README.md

@@ -55,17 +55,17 @@ In order to compile a Nirum package (`examples/`) to a Python package:
 For more infomration, use `--help` option:
 
     $ nirum --help
-    Nirum Compiler 0.3.0
+    nirum - The IDL compiler and RPC/distributed object framework
 
-    nirum [OPTIONS] DIR
-
-    Common flags:
-      -o --output-dir=DIR   The directory to place object files
-      -t --target=TARGET    The target language.  Available targets: python
-      -? --help             Display help message
-      -V --version          Print version information
-         --numeric-version  Print just the version number
+    Usage: nirum [-v|--version] (-o|--output-dir DIR) (-t|--target TARGET) DIR
+      Nirum compiler0.3.0
 
+    Available options:
+      -h,--help                Show this help text
+      -v,--version             Show version
+      -o,--output-dir DIR      Output directory
+      -t,--target TARGET       Target language name
+      DIR                      Package directory
 
 Building
 --------

nirum.cabal

@@ -58,6 +58,7 @@ library
                ,       interpolatedstring-perl6 >=1.0.0   && <1.1.0
                ,       megaparsec               >=5       && <5.3
                ,       mtl                      >=2.2.1   && <3
+               ,       optparse-applicative     >=0.13.1  && <0.14
                ,       parsec
                        -- only for dealing with htoml's ParserError
                ,       semver                   >=0.3.0   && <1.0

src/Nirum/Cli.hs

@@ -3,26 +3,13 @@ module Nirum.Cli (main, writeFiles) where
 
 import Control.Monad (forM_)
 import GHC.Exts (IsList (toList))
-import System.IO.Error (catchIOError, ioeGetErrorString)
 
 import qualified Data.ByteString as B
 import qualified Data.Map.Strict as M
 import qualified Data.Set as S
 import qualified Data.Text as T
-import System.Console.CmdArgs.Implicit ( Data
-                                       , Typeable
-                                       , argPos
-                                       , cmdArgs
-                                       , explicit
-                                       , help
-                                       , name
-                                       , program
-                                       , summary
-                                       , typ
-                                       , typDir
-                                       , (&=)
-                                       )
-import System.Console.CmdArgs.Default (def)
+import Data.Monoid ((<>))
+import qualified Options.Applicative as OPT
 import System.Directory (createDirectoryIfMissing)
 import System.Exit (die)
 import System.FilePath (takeDirectory, (</>))
@@ -57,11 +44,6 @@ import Nirum.Targets ( BuildError (CompileError, PackageError, TargetNameError)
                      )
 import Nirum.Version (versionString)
 
-data NirumCli = NirumCli { sourcePath :: FilePath
-                         , objectPath :: FilePath
-                         , targetName :: TargetName
-                         } deriving (Show, Data, Typeable)
-
 parseErrortoPrettyMessage :: ParseError (Token T.Text) Dec
                           -> FilePath
                           -> IO String
@@ -128,24 +110,11 @@ importErrorsToPrettyMessage importErrors =
     withListStyleText =
         map (T.append "- ") (importErrorsToMessageList importErrors)
 
-nirumCli :: NirumCli
-nirumCli = NirumCli
-    { objectPath = def &= explicit
-          &= name "o" &= name "output-dir" &= typDir
-          &= help "The directory to place object files"
-    , targetName = "python" &= explicit
-          &= name "t" &= name "target" &= typ "TARGET"
-          &= help ("The target language.  Available targets: " ++
-                   T.unpack targetNamesText)
-    , sourcePath = def &= argPos 1 &= typDir
-    } &= program "nirum" &= summary ("Nirum Compiler " ++ versionString)
-
 targetNamesText :: T.Text
 targetNamesText = T.intercalate ", " $ S.toAscList targetNames
 
-main' :: IO ()
-main' = do
-    NirumCli src outDir target <- cmdArgs nirumCli
+runCli :: FilePath -> FilePath -> TargetName -> IO ()
+runCli src outDir target = do
     result <- buildPackage target src
     case result of
         Left (TargetNameError targetName') ->
@@ -181,5 +150,39 @@ writeFiles outDir files =
         putStrLn outPath
         B.writeFile outPath code
 
+data Opts = Opts { outDirectory :: !String
+                 , targetOption :: !String
+                 , packageDirectory :: !String
+                 }
+
 main :: IO ()
-main = catchIOError main' $ die . ioeGetErrorString
+main = do
+    opts <- OPT.execParser optsParser
+    let packageDirectoryPath = packageDirectory opts
+        outDirectoryPath = outDirectory opts
+        targetName = T.pack $ targetOption opts
+    runCli packageDirectoryPath outDirectoryPath targetName
+  where
+    optsParser :: OPT.ParserInfo Opts
+    optsParser =
+        OPT.info
+            (OPT.helper <*> versionOption <*> programOptions)
+            (OPT.fullDesc <>
+             OPT.progDesc ("Nirum compiler" ++ versionString) <>
+             OPT.header header)
+    header :: String
+    header = "nirum - The IDL compiler and RPC/distributed object framework"
+    versionOption :: OPT.Parser (Opts -> Opts)
+    versionOption = OPT.infoOption
+        versionString (OPT.long "version" <>
+                       OPT.short 'v' <> OPT.help "Show version")
+    programOptions :: OPT.Parser Opts
+    programOptions =
+        Opts <$> OPT.strOption
+            (OPT.long "output-dir" <> OPT.short 'o' <> OPT.metavar "DIR" <>
+             OPT.help "Output directory") <*>
+        OPT.strOption
+            (OPT.long "target" <> OPT.short 't' <> OPT.metavar "TARGET" <>
+             OPT.help "Target language name") <*>
+        OPT.strArgument
+            (OPT.metavar "DIR" <> OPT.help "Package directory")

test.sh

@@ -2,6 +2,6 @@
 set -e
 
 stack build
-stack exec -- nirum -o nirum_fixture test/nirum_fixture
+stack exec -- nirum -o nirum_fixture -t python test/nirum_fixture
 
 tox --skip-missing-interpreters