From 9b6f5e26d046c7c4982f3fea72d469f10d85d9bc Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 10 Dec 2009 22:48:34 +0000
Subject: [PATCH] use the more cross-platform doesFileExist

---
 Commands/Convert.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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