From b45bdaefec1778f1557a8b8ba3e2602d033621bf Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 20 May 2009 13:23:34 +0000
Subject: simpler algorithm for file searching in the compiler. should be
 equivalent to the previous one

---
 src/GF/Compile.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/GF/Compile.hs')

diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs
index 4e16e9121..4b63c5c2e 100644
--- a/src/GF/Compile.hs
+++ b/src/GF/Compile.hs
@@ -118,10 +118,7 @@ compileModule opts1 env file = do
   opts0 <- getOptionsFromFile file
   let opts = addOptions opts0 opts1
   let fdir = dropFileName file
-  let ps0 = flag optLibraryPath opts
-  ps1 <- ioeIO $ extendPathEnv opts $ fdir : ps0
-  let ps2 = ps1 ++ map (fdir </>) ps0
-  ps <- ioeIO $ fmap nub $ mapM canonicalizePath ps2
+  ps <- ioeIO $ extendPathEnv opts fdir
   ioeIO $ putIfVerb opts $ "module search path:" +++ show ps ----
   let (_,sgr,rfs) = env
   files <- getAllFiles opts ps rfs file
-- 
cgit v1.2.3