Commit e683575d authored by Michael Hanus 's avatar Michael Hanus
Browse files

CASS: load path handling improved

parent 69b8ca91
......@@ -134,6 +134,7 @@ analyzeFunctionForBrowser ananame qn@(mname,_) aoutformat = do
analyzeModule :: String -> String -> AOutFormat
-> IO (Either (ProgInfo String) String)
analyzeModule ananame moduleName aoutformat = do
getDefaultPath >>= setEnviron "CURRYPATH"
numworkers <- numberOfWorkers
if numworkers>0
then do
......@@ -155,6 +156,7 @@ analyzeModule ananame moduleName aoutformat = do
analyzeGeneric :: Analysis a -> String -> IO (Either (ProgInfo a) String)
analyzeGeneric analysis moduleName = do
initializeAnalysisSystem
getDefaultPath >>= setEnviron "CURRYPATH"
numworkers <- numberOfWorkers
if numworkers>0
then do
......
......@@ -180,7 +180,7 @@ waitTime = -1
-- configuration file).
defaultWorkers=0
--- Gets the default load path from the property file (added add the end
--- Gets the default load path from the property file (added at the end
--- of CURRYPATH).
getDefaultPath = do
currypath <- getEnviron "CURRYPATH"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment