From cbcdae91484a13780a3d827a1b6ae85f7e3a9ab3 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Tue, 6 Oct 2009 10:27:34 +0000
Subject: hopefully the last revision of the relative paths handling algorithm

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

(limited to 'src/GF.hs')

diff --git a/src/GF.hs b/src/GF.hs
index 451cff9f9..32a95ca1f 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -26,9 +26,10 @@ main = do
   setConsoleOutputCP codepage
 #endif
   args <- getArgs
-  cdir <- getCurrentDirectory
-  case parseOptions cdir args of
-    Ok (opts,files) -> mainOpts opts files
+  case parseOptions args of
+    Ok (opts,files) -> do curr_dir <- getCurrentDirectory
+                          lib_dir  <- getLibraryDirectory opts
+                          mainOpts (fixRelativeLibPaths curr_dir lib_dir opts) files
     Bad err         -> do hPutStrLn stderr err
                           hPutStrLn stderr "You may want to try --help."
                           exitFailure
-- 
cgit v1.2.3