handle utf8 properly in error messages (issue #5)

This commit is contained in:
Simon Michael 2009-07-09 19:12:27 +00:00
parent 2d8a5950d1
commit edc0913ed9
2 changed files with 3 additions and 1 deletions

View File

@ -11,7 +11,8 @@ import Control.Monad.Error
import Ledger import Ledger
import Options (Opt,ledgerFilePathFromOpts,optsToFilterSpec) import Options (Opt,ledgerFilePathFromOpts,optsToFilterSpec)
import System.Directory (doesFileExist) import System.Directory (doesFileExist)
import System.IO import System.IO (stderr)
import System.IO.UTF8 (hPutStrLn)
import System.Exit import System.Exit
import System.Cmd (system) import System.Cmd (system)
import System.Info (os) import System.Info (os)

View File

@ -11,3 +11,4 @@ could not balance this transaction, amounts do not add up to zero:
дебит 1 дебит 1
кредит -2 кредит -2