CurryInfo: currypath-3.0.0 / System.CurryPath.setCurryPath

 
setCurryPath :: Bool -> String -> IO ()
setCurryPath quiet cpmexec = do
  cp <- getEnv "CURRYPATH"
  if null cp
    then
      (if null cpmexec then getFileInPath "cypm" else return (Just cpmexec)) >>=
      maybe
        (return ())
        (\cpm -> do
          putStrLnNQ $
            "Computing CURRYPATH with '" ++ cpm ++ "'..."
          (rc,out,err) <- evalCmd cpm ["deps","--path"] ""
          if rc==0
            then do let cpath = strip out
                    putStrLnNQ $ "CURRYPATH=" ++ cpath
                    setEnv "CURRYPATH" cpath
            else putStrLn $ "ERROR during computing CURRYPATH with 'cypm':\n"
                                ++ out ++ err )
    else putStrLnNQ $ "CURRYPATH=" ++ cp
 where
  putStrLnNQ s = unless quiet $ putStrLn s

  -- Remove leading and trailing whitespace
  strip = reverse . dropWhile isSpace . reverse . dropWhile isSpace

 no demanded arguments

 deterministic operation

 
If the environment variable `CURRYPATH` is not already set
(i.e., not null), set it to the value computed by `cypm deps --path`
in order to allow invoking tools without `cypm exec ...`.
If the first argument is `False`, the computed path value is printed.
If the second argument is not null, its value is taken as the executable
for CPM, otherwise the executable `cypm` is searched in the current path
(environment variable `PATH`).

 <FAILING>

 referentially transparent operation

 no fixity defined

 {(_,_) |-> _}

 setCurryPath

 no precedence defined

 _

 Prelude.Bool -> String -> Prelude.IO ()

 operation might suspend on free variables

 possibly non-terminating

 possibly non-reducible on same data term