Extend Package to include id

This commit
1. rename Package with PackageBaseName
2. Pacakge = (PackageBaseName, Maybe String) to save its id
3. Expose packages with id if available
This commit is contained in:
Naohiro Aota
2014-01-30 20:42:25 +09:00
parent 7c6fbb2af1
commit a0db24b0a5
8 changed files with 31 additions and 13 deletions

View File

@@ -32,6 +32,7 @@ findCradle = do
, cradleCabalDir = Nothing
, cradleCabalFile = Nothing
, cradlePackageDbOpts = []
, cradlePackages = []
}
findCradle' :: FilePath -> IO Cradle
@@ -43,13 +44,14 @@ findCradle' wdir = do
, cradleCabalDir = Just cdir
, cradleCabalFile = Just cfile
, cradlePackageDbOpts = pkgDbOpts
, cradlePackages = []
}
-- Just for testing
findCradleWithoutSandbox :: IO Cradle
findCradleWithoutSandbox = do
cradle <- findCradle
return cradle { cradlePackageDbOpts = [] }
return cradle { cradlePackageDbOpts = [], cradlePackages = [] }
----------------------------------------------------------------