From 6208ed017b07506cbb2a76895b0955f29881ed71 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 21 Jan 2011 01:16:55 +0000
Subject: [PATCH] treat arguments as possibly-encoded platform strings, not
 unconditionally utf-8

---
 hledger/Hledger/Cli/Options.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/Options.hs b/hledger/Hledger/Cli/Options.hs
index 6bb673570..fc5caa5af 100644
--- a/hledger/Hledger/Cli/Options.hs
+++ b/hledger/Hledger/Cli/Options.hs
@@ -4,7 +4,6 @@ Command-line options for the application.
 
 module Hledger.Cli.Options
 where
-import Codec.Binary.UTF8.String (decodeString)
 import System.Console.GetOpt
 import System.Environment
 
@@ -147,7 +146,7 @@ optValuesForConstructors fs opts = concatMap get opts
 -- provided usage string.
 parseArgumentsWith :: [OptDescr Opt] -> IO ([Opt], [String])
 parseArgumentsWith options = do
-  rawargs <- map decodeString `fmap` getArgs
+  rawargs <- map fromPlatformString `fmap` getArgs
   let (opts,args,errs) = getOpt Permute options rawargs
   opts' <- fixOptDates opts
   let opts'' = if Debug `elem` opts' then Verbose:opts' else opts'