From 8569b39771dff9952e0ff4f3fbf85c3c3fcb45ec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jakob=20Sch=C3=B6ttl?= Date: Sat, 29 Jun 2019 22:42:18 +0200 Subject: [PATCH] Refactoring: qualified call to process function --- hledger/Hledger/Cli/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger/Hledger/Cli/Main.hs b/hledger/Hledger/Cli/Main.hs index f54851b30..16026c5bc 100644 --- a/hledger/Hledger/Cli/Main.hs +++ b/hledger/Hledger/Cli/Main.hs @@ -43,7 +43,7 @@ module Hledger.Cli.Main where import Data.Char (isDigit) import Data.List import Safe -import System.Console.CmdArgs.Explicit as C +import qualified System.Console.CmdArgs.Explicit as C import System.Environment import System.Exit import System.FilePath @@ -204,7 +204,7 @@ argsToCliOpts :: [String] -> [String] -> IO CliOpts argsToCliOpts args addons = do let args' = moveFlagsAfterCommand $ replaceNumericFlags args - cmdargsopts = either usageError id $ process (mainmode addons) args' + cmdargsopts = either usageError id $ C.process (mainmode addons) args' cmdargsopts' = decodeRawOpts cmdargsopts rawOptsToCliOpts cmdargsopts'