simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-10 05:39:31 +03:00
Code Issues Projects Releases Wiki Activity

fix handling of non-ascii arguments with ghc 6.12

Browse Source 
Seems decodeString is needed here with 6.12 after all
This commit is contained in:
Simon Michael 2010-05-23 20:26:20 +00:00
parent 557746da5e
commit 9261071987
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Hledger/Cli/Options.hs
View File

@ -12,9 +12,7 @@ import Hledger.Data.IO (myLedgerPath,myTimelogPath)
import Hledger.Data.Utils
import Hledger.Data.Types
import Hledger.Data.Dates
#if __GLASGOW_HASKELL__ <= 610
import Codec.Binary.UTF8.String (decodeString)
#endif
#ifdef CHART
chartoutput = "hledger.png"
@ -148,11 +146,7 @@ optValuesForConstructors fs opts = concatMap get opts
-- YYYY/MM/DD format based on the current time.
parseArguments :: IO ([Opt], String, [String])
parseArguments = do
#if __GLASGOW_HASKELL__ <= 610
args <- liftM (map decodeString) getArgs
#else
args <- getArgs
#endif
let (os,as,es) = getOpt Permute options args
-- istimequery <- usingTimeProgramName
-- let os' = if istimequery then (Period "today"):os else os