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 ...@@ -134,6 +134,7 @@ analyzeFunctionForBrowser ananame qn@(mname,_) aoutformat = do
analyzeModule :: String -> String -> AOutFormat analyzeModule :: String -> String -> AOutFormat
-> IO (Either (ProgInfo String) String) -> IO (Either (ProgInfo String) String)
analyzeModule ananame moduleName aoutformat = do analyzeModule ananame moduleName aoutformat = do
getDefaultPath >>= setEnviron "CURRYPATH"
numworkers <- numberOfWorkers numworkers <- numberOfWorkers
if numworkers>0 if numworkers>0
then do then do
...@@ -155,6 +156,7 @@ analyzeModule ananame moduleName aoutformat = do ...@@ -155,6 +156,7 @@ analyzeModule ananame moduleName aoutformat = do
analyzeGeneric :: Analysis a -> String -> IO (Either (ProgInfo a) String) analyzeGeneric :: Analysis a -> String -> IO (Either (ProgInfo a) String)
analyzeGeneric analysis moduleName = do analyzeGeneric analysis moduleName = do
initializeAnalysisSystem initializeAnalysisSystem
getDefaultPath >>= setEnviron "CURRYPATH"
numworkers <- numberOfWorkers numworkers <- numberOfWorkers
if numworkers>0 if numworkers>0
then do then do
......
...@@ -180,7 +180,7 @@ waitTime = -1 ...@@ -180,7 +180,7 @@ waitTime = -1
-- configuration file). -- configuration file).
defaultWorkers=0 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). --- of CURRYPATH).
getDefaultPath = do getDefaultPath = do
currypath <- getEnviron "CURRYPATH" currypath <- getEnviron "CURRYPATH"
......
Supports Markdown
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