diff options
Diffstat (limited to 'lib/Language/Elna/CommandLine.hs')
| -rw-r--r-- | lib/Language/Elna/CommandLine.hs | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/lib/Language/Elna/CommandLine.hs b/lib/Language/Elna/CommandLine.hs deleted file mode 100644 index 19898e2..0000000 --- a/lib/Language/Elna/CommandLine.hs +++ /dev/null @@ -1,48 +0,0 @@ -{- This Source Code Form is subject to the terms of the Mozilla Public License, - v. 2.0. If a copy of the MPL was not distributed with this file, You can - obtain one at https://mozilla.org/MPL/2.0/. -} - -module Language.Elna.CommandLine - ( CommandLine(..) - , commandLine - , execParser - ) where - -import Options.Applicative - ( Parser - , ParserInfo(..) - , argument - , execParser - , fullDesc - , help - , helper - , info - , long - , metavar - , optional - , progDesc - , short - , str - , strOption - ) -import Control.Applicative ((<**>)) - -data CommandLine = CommandLine - { input :: FilePath - , output :: Maybe FilePath - } deriving (Eq, Show) - -parser :: Parser CommandLine -parser = CommandLine - <$> argument str inFile - <*> optional (strOption outFile) - where - inFile = metavar "INFILE" <> help "Input file." - outFile = long "output" - <> short 'o' - <> metavar "OUTFILE" - <> help "Output file." - -commandLine :: ParserInfo CommandLine -commandLine = info (parser <**> helper) - $ fullDesc <> progDesc "Elna compiler." |
