|
definition:
|
getLocalPackageSpec :: Config -> String -> ErrorLogger String
getLocalPackageSpec cfg dir = do
adir <- liftIOEL $ getRealPath dir
spec <- searchLocalSpec (length (splitPath adir)) dir
maybe returnHomePackage return spec
where
returnHomePackage = do
let homepkgdir = homePackageDir cfg
homepkgspec = homepkgdir </> packageSpecFile
specexists <- liftIOEL $ doesFileExist homepkgspec
let basedeps = maybe []
(\v -> [Dependency "base" [[VMajCompatible v]]])
(readVersion (compilerBaseVersion cfg))
unless (specexists || null homepkgdir) $ do
liftIOEL $ createDirectoryIfMissing True homepkgdir
let newpkg = emptyPackage
{ name = snd (splitFileName homepkgdir)
, version = initialVersion
, author = ["CPM"]
, synopsis = "Default home package"
, dependencies = basedeps
}
liftIOEL $ writePackageSpec newpkg homepkgspec
logInfo $ "New empty package specification '" ++ homepkgspec ++
"' generated"
return homepkgdir
searchLocalSpec m sdir = do
existsLocal <- liftIOEL $ doesFileExist $ sdir </> packageSpecFile
if existsLocal
then return (Just sdir)
else do
logDebug ("No package.json in " ++ show sdir ++ ", trying " ++
show (sdir </> ".."))
parentExists <- liftIOEL $ doesDirectoryExist $ sdir </> ".."
if m>0 && parentExists
then searchLocalSpec (m-1) $ sdir </> ".."
else return Nothing
|
|
documentation:
|
------------------------------------------------------------------------------
--- Tries to find a package specification in the given directory or one of its
--- ancestors. If there is no package specifiction in these directories,
--- the home package specification (i.e., `~/.cpm/...-homepackage/package.json`
--- is returned (and created if it does not exist).
--- In order to avoid infinite loops due to cyclic file structures,
--- the search is limited to the number of directories occurring in the
--- current absolute path.
|