From 332dbf7b9b79f9cb2fa60212cc5529e0c490c1de Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 5 Oct 2009 14:58:13 +0000
Subject: another attempt to get the paths handling right

---
 src/GF.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/GF.hs')

diff --git a/src/GF.hs b/src/GF.hs
index de288df10..451cff9f9 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -9,6 +9,7 @@ import GF.Infra.UseIO
 import Paths_gf
 
 import Data.Version
+import System.Directory
 import System.Environment (getArgs)
 import System.Exit
 import System.IO
@@ -25,7 +26,8 @@ main = do
   setConsoleOutputCP codepage
 #endif
   args <- getArgs
-  case parseOptions args of
+  cdir <- getCurrentDirectory
+  case parseOptions cdir args of
     Ok (opts,files) -> mainOpts opts files
     Bad err         -> do hPutStrLn stderr err
                           hPutStrLn stderr "You may want to try --help."
-- 
cgit v1.2.3