git.iko.soy/stackage
on d7ccf74 help sign in
stackage/Stackage/Config.hs
90 lines 2.9 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, singleton)
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.
18extraCore :: Set PackageName
19extraCore = singleton $ PackageName "binary"
21-- | Test suites which are expected to fail for some reason. The test suite
22-- will still be run and logs kept, but a failure will not indicate an
23-- error in our package combination.
24expectedFailures :: Set PackageName
25expectedFailures = fromList $ map PackageName
26 [ -- Requires an old version of WAI and Warp for tests
27 "HTTP"
28 -- Requires a special hspec-meta which is not yet available from
29 -- Hackage.
30 , "hspec"
32 -- text and setenv have recursive dependencies in their tests, which
33 -- cabal can't (yet) handle
34 , "text"
35 , "setenv"
37 -- The version of GLUT included with the HP does not generate
38 -- documentation correctly.
39 , "GLUT"
41 -- https://github.com/bos/statistics/issues/42
42 , "statistics"
44 -- https://github.com/kazu-yamamoto/unix-time/issues/4
45 , "unix-time"
47 -- https://github.com/kazu-yamamoto/simple-sendfile/pull/10
48 , "simple-sendfile"
50 -- https://github.com/alanz/hjsmin/pull/11
51 , "hjsmin"
53 -- Michael emailed Dominic about bumping version numbers, but no new
54 -- release has yet been made.
55 , "largeword"
56 ]
58-- | List of packages for our stable Hackage. All dependencies will be
59-- included as well. Please indicate who will be maintaining the package
60-- via comments.
61stablePackages :: Map PackageName (VersionRange, Maintainer)
62stablePackages = execWriter $ do
63 mapM_ (add "michael@snoyman.com") $ words
64 "yesod yesod-newsfeed yesod-sitemap yesod-static yesod-test markdown filesystem-conduit mime-mail-ses"
66 mapM_ (add "Neil Mitchell") $ words
67 "hoogle hlint"
69 mapM_ (add "Alan Zimmerman") $ words
70 "hjsmin language-javascript"
72 mapM_ (add "Jasper Van der Jeugt") $ words
73 "blaze-html blaze-markup stylish-haskell"
75 mapM_ (add "Antoine Latter") $ words
76 "uuid byteorder"
77 where
78 add maintainer package = addRange maintainer package "-any"
79 addRange maintainer package range =
80 case simpleParse range of
81 Nothing -> error $ "Invalid range " ++ show range ++ " for " ++ package
82 Just range' -> tell $ Map.singleton (PackageName package) (range', Maintainer maintainer)
84verbose :: Bool
85verbose =
86#if VERBOSE
87 True
88#else
89 False
90#endif