git.iko.soy/stackage
on 70178ed help sign in
stackage/Stackage/Types.hs
66 lines 2.3 kB history raw
1module Stackage.Types
2 ( module X
3 , module Stackage.Types
4 ) where
6import Data.Map as X (Map)
7import Data.Map (unionWith)
8import Data.Monoid (Monoid (..))
9import Data.Set as X (Set)
10import Data.Version as X (Version)
11import Distribution.Package as X (PackageIdentifier (..),
12 PackageName (..))
13import Distribution.Version as X (VersionRange (..))
15newtype PackageDB = PackageDB (Map PackageName PackageInfo)
16 deriving (Show, Eq, Ord)
18instance Monoid PackageDB where
19 mempty = PackageDB mempty
20 PackageDB x `mappend` PackageDB y =
21 PackageDB $ unionWith newest x y
22 where
23 newest pi1 pi2
24 | piVersion pi1 > piVersion pi2 = pi1
25 | otherwise = pi2
27data PackageInfo = PackageInfo
28 { piVersion :: Version
29 , piDeps :: Set PackageName
30 , piHasTests :: Bool
31 }
32 deriving (Show, Eq, Ord)
34data HaskellPlatform = HaskellPlatform
35 { hpcore :: Set PackageIdentifier
36 , hplibs :: Set PackageIdentifier
37 }
38 deriving (Show, Eq, Ord)
39instance Monoid HaskellPlatform where
40 mempty = HaskellPlatform mempty mempty
41 HaskellPlatform a x `mappend` HaskellPlatform b y = HaskellPlatform (mappend a b) (mappend x y)
43data InstallInfo = InstallInfo
44 { iiCore :: Set PackageName
45 , iiPackages :: Map PackageName (Version, Maintainer)
46 , iiOptionalCore :: Map PackageName Version
47 -- ^ This is intended to hold onto packages which might be automatically
48 -- provided in the global package database. In practice, this would be
49 -- Haskell Platform packages provided by distributions.
50 , iiPackageDB :: PackageDB
51 }
53-- | Email address of a Stackage maintainer.
54newtype Maintainer = Maintainer { unMaintainer :: String }
55 deriving (Show, Eq, Ord)
57data BuildSettings = BuildSettings
58 { sandboxRoot :: FilePath
59 , extraBuildArgs :: [String]
60 , extraCore :: Set PackageName
61 , expectedFailures :: Set PackageName
62 , stablePackages :: Map PackageName (VersionRange, Maintainer)
63 , extraArgs :: [String]
64 , haskellPlatformCabal :: FilePath
65 , requireHaskellPlatform :: Bool
66 }