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

use the more cross-platform doesFileExist

Browse Source
This commit is contained in:
Simon Michael 2009-12-10 22:48:34 +00:00
parent acb68e4778
commit 9b6f5e26d0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Commands/Convert.hs
View File

@ -20,7 +20,7 @@ import Locale (defaultTimeLocale)
import Data.Time.Format (parseTime) import Data.Time.Format (parseTime)
import Control.Monad (when, guard) import Control.Monad (when, guard)
import Safe (readDef, readMay) import Safe (readDef, readMay)
import System.Posix.Files (fileExist) import System.Directory (doesFileExist)
import System.FilePath.Posix (takeBaseName, replaceExtension) import System.FilePath.Posix (takeBaseName, replaceExtension)
import Text.ParserCombinators.Parsec import Text.ParserCombinators.Parsec
@ -35,7 +35,7 @@ convert opts args _ = do
Right rs -> reverse $ filter (/= [""]) rs Right rs -> reverse $ filter (/= [""]) rs
let debug = Debug `elem` opts let debug = Debug `elem` opts
rulesfile = rulesFileFor csvfile rulesfile = rulesFileFor csvfile
exists <- fileExist rulesfile exists <- doesFileExist rulesfile
if (not exists) then do if (not exists) then do
hPrintf stderr "creating conversion rules file %s, edit this file for better results\n" rulesfile hPrintf stderr "creating conversion rules file %s, edit this file for better results\n" rulesfile
writeFile rulesfile initialRulesFileContent writeFile rulesfile initialRulesFileContent