CASS: load path handling improved

CASS/AnalysisServer.curry

@@ -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

CASS/Configuration.curry

@@ -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"