From 332dbf7b9b79f9cb2fa60212cc5529e0c490c1de Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 5 Oct 2009 14:58:13 +0000 Subject: another attempt to get the paths handling right --- src/GFI.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/GFI.hs') diff --git a/src/GFI.hs b/src/GFI.hs index 86f9614ed..edf4ada5f 100644 --- a/src/GFI.hs +++ b/src/GFI.hs @@ -34,6 +34,7 @@ import qualified Data.ByteString.Char8 as BS import qualified Text.ParserCombinators.ReadP as RP import System.Cmd import System.CPUTime +import System.Directory import Control.Exception import Control.Monad import Data.Version @@ -129,7 +130,8 @@ loop opts gfenv0 = do putStrLn "wrote graph in file _gfdepgraph.dot" loopNewCPU gfenv "i":args -> do - gfenv' <- case parseOptions args of + cdir <- getCurrentDirectory + gfenv' <- case parseOptions cdir args of Ok (opts',files) -> importInEnv gfenv (addOptions opts opts') files Bad err -> do -- cgit v1.2.3