slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Refactoring: qualified call to process function

Browse Source
This commit is contained in:
Jakob Schöttl 2019-06-29 22:42:18 +02:00
parent 2b01312004
commit 8569b39771
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Main.hs
View File

@ -43,7 +43,7 @@ module Hledger.Cli.Main where
import Data.Char (isDigit) import Data.Char (isDigit)
import Data.List import Data.List
import Safe import Safe
import System.Console.CmdArgs.Explicit as C import qualified System.Console.CmdArgs.Explicit as C
import System.Environment import System.Environment
import System.Exit import System.Exit
import System.FilePath import System.FilePath
@ -204,7 +204,7 @@ argsToCliOpts :: [String] -> [String] -> IO CliOpts
argsToCliOpts args addons = do argsToCliOpts args addons = do
let let
args' = moveFlagsAfterCommand $ replaceNumericFlags args args' = moveFlagsAfterCommand $ replaceNumericFlags args
cmdargsopts = either usageError id $ process (mainmode addons) args' cmdargsopts = either usageError id $ C.process (mainmode addons) args'
cmdargsopts' = decodeRawOpts cmdargsopts cmdargsopts' = decodeRawOpts cmdargsopts
rawOptsToCliOpts cmdargsopts' rawOptsToCliOpts cmdargsopts'