on 39cc820 help sign in
stackage/Stackage/Config.hs
123 lines 4.8 kB history raw
1{-# LANGUAGE CPP #-}
2module Stackage.Config where
4import Control.Monad.Trans.Writer (execWriter, tell)
5import qualified Data.Map as Map
6import Data.Set (fromList)
7import Distribution.Text (simpleParse)
8import Stackage.Types
10targetCompilerVersion :: Version
11targetCompilerVersion =
12 case simpleParse "7.4.2" of
13 Nothing -> error "Invalid targetCompilerVersion"
14 Just v -> v
16-- | Packages which are shipped with GHC but are not included in the
17-- Haskell Platform list of core packages.
18defaultExtraCore :: Set PackageName
19defaultExtraCore = fromList $ map PackageName $ words
20 "binary Win32"
22-- | Test suites which are expected to fail for some reason. The test suite
23-- will still be run and logs kept, but a failure will not indicate an
24-- error in our package combination.
25defaultExpectedFailures :: Set PackageName
26defaultExpectedFailures = fromList $ map PackageName
27 [ -- Requires an old version of WAI and Warp for tests
28 "HTTP"
30 -- text and setenv have recursive dependencies in their tests, which
31 -- cabal can't (yet) handle
32 , "text"
33 , "setenv"
35 -- The version of GLUT included with the HP does not generate
36 -- documentation correctly.
37 , "GLUT"
39 -- https://github.com/bos/statistics/issues/42
40 , "statistics"
42 -- https://github.com/kazu-yamamoto/simple-sendfile/pull/10
43 , "simple-sendfile"
45 -- http://hackage.haskell.org/trac/hackage/ticket/954
46 , "diagrams"
48 -- https://github.com/fpco/stackage/issues/24
49 , "unix-time"
51 -- With transformers 0.3, it doesn't provide any modules
52 , "transformers-compat"
53 ]
55-- | List of packages for our stable Hackage. All dependencies will be
56-- included as well. Please indicate who will be maintaining the package
57-- via comments.
58defaultStablePackages :: Map PackageName (VersionRange, Maintainer)
59defaultStablePackages = unPackageMap $ execWriter $ do
60 mapM_ (add "michael@snoyman.com") $ words =<<
61 [ "yesod yesod-newsfeed yesod-sitemap yesod-static yesod-test"
62 , "markdown filesystem-conduit mime-mail-ses"
63 , "persistent persistent-template persistent-sqlite"
64 , "network-conduit-tls"
65 ]
67 mapM_ (add "Neil Mitchell") $ words
68 "hoogle hlint"
70 mapM_ (add "Alan Zimmerman") $ words
71 "hjsmin language-javascript"
73 mapM_ (add "Jasper Van der Jeugt") $ words
74 "blaze-html blaze-markup stylish-haskell"
76 mapM_ (add "Antoine Latter") $ words
77 "uuid byteorder"
79 mapM_ (add "Stefan Wehr <wehr@factisresearch.com>") $ words
80 "HTF hscurses xmlgen stm-stats"
82 mapM_ (add "Bart Massey <bart.massey+stackage@gmail.com>") $ words
83 "parseargs"
85 mapM_ (add "Vincent Hanquez") $ words =<<
86 [ "asn1-data bytedump certificate cipher-aes cipher-rc4 connection"
87 , "cprng-aes cpu crypto-pubkey-types crypto-random-api cryptocipher"
88 , "cryptohash hit language-java libgit pem siphash socks tls"
89 , "tls-debug tls-extra udbus vhd xenstore"
90 ]
92 mapM_ (add "Edward Kmett <ekmett@gmail.com>") $ words =<<
93 [ "ad adjunctions bifunctors bound categories charset comonad comonad-transformers"
94 , "comonads-fd comonad-extras compressed concurrent-supply constraints contravariant"
95 , "distributive either eq free groupoids heaps hyphenation"
96 , "integration intervals kan-extensions lca lens linear monadic-arrays machines"
97 , "mtl profunctors profunctor-extras reducers reflection"
98 , "representable-functors representable-tries"
99 , "semigroups semigroupoids semigroupoid-extras speculation tagged void"
100 , "graphs monad-products monad-st wl-pprint-extras wl-pprint-terminfo"
101 , "numeric-extras parsers pointed prelude-extras recursion-schemes reducers"
102 , "streams syb-extras vector-instances"
103 ]
105 mapM_ (add "Simon Hengel <sol@typeful.net>") $ words
106 "hspec doctest base-compat"
108 mapM_ (add "Brent Yorgey <byorgey@gmail.com>") $ words =<<
109 [ "monoid-extras dual-tree vector-space-points active force-layout"
110 , "diagrams diagrams-contrib diagrams-core diagrams-lib diagrams-svg"
111 , "diagrams-builder haxr BlogLiterately BlogLiterately-diagrams"
112 ]
114 mapM_ (add "Patrick Brisbin") $ words "gravatar"
116 -- https://github.com/fpco/stackage/issues/34
117 addRange "Michael Snoyman" "ansi-terminal" "< 0.6"
118 where
119 add maintainer package = addRange maintainer package "-any"
120 addRange maintainer package range =
121 case simpleParse range of
122 Nothing -> error $ "Invalid range " ++ show range ++ " for " ++ package
123 Just range' -> tell $ PackageMap $ Map.singleton (PackageName package) (range', Maintainer maintainer)