CurryInfo: currypath-3.0.0 / System.CurryPath.getPackageVersionOfDirectory

 
getPackageVersionOfDirectory :: FilePath -> IO (Maybe (String,String))
getPackageVersionOfDirectory path =
  if sysLibPath == [path]
    then return (Just ("base",baseVersion))
    else getPackageSpecPath path >>=
         return . maybe Nothing
                        (\pdir -> splitPkgId "" (last (splitDirectories pdir)))
 where
  splitPkgId oldpn s =
    let (pname,hvers) = break (=='-') s
        newpn = if null oldpn then pname else oldpn ++ "-" ++ pname
    in if null hvers
         then Nothing
         else let vers = tail hvers
              in if isVersionId vers then Just (newpn,vers)
                                     else splitPkgId newpn vers

  isVersionId vs = case split (=='.') vs of
    (maj:min:patch:_) -> all (all isDigit) [maj, min, take 1 patch]
    _                 -> False

 no demanded arguments

 deterministic operation

 
Checks whether a directory path is part of a package and returns
the package name and package version. For instance,

    getPackageVersionOfDirectory "/home/joe/mytool/.cpm/packages/process-3.0.0/src"

returns

    Just "process" "3.0.0"

For this purpose, it is checked whether there is a `package.json` file
under the directory and the directory name is a valid package id.

 <FAILING>

 referentially transparent operation

 no fixity defined

 {(_) |-> _}

 getPackageVersionOfDirectory

 no precedence defined

 _

 String -> Prelude.IO (Prelude.Maybe (String, String))

 operation might suspend on free variables

 possibly non-terminating

 possibly non-reducible on same data term