haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-22 15:47:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Ghc major version whitelist is now drawn from stackage-content

Browse Source
This commit is contained in:
Dan Burton 2015-04-27 10:21:33 -07:00
parent 8a3f199ebb
commit 90ad3afe19
1 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Data/GhcLinks.hs
View File

@ -6,6 +6,7 @@ module Data.GhcLinks
import ClassyPrelude.Yesod import ClassyPrelude.Yesod
import Control.Monad.State.Strict (modify, execStateT) import Control.Monad.State.Strict (modify, execStateT)
import qualified Data.HashMap.Strict as HashMap import qualified Data.HashMap.Strict as HashMap
import qualified Data.Yaml as Yaml
import Filesystem (readTextFile, isFile) import Filesystem (readTextFile, isFile)
import Types import Types
@ -18,16 +19,16 @@ newtype GhcLinks = GhcLinks
supportedArches :: [SupportedArch] supportedArches :: [SupportedArch]
supportedArches = [minBound .. maxBound] supportedArches = [minBound .. maxBound]
supportedGhcMajorVersions :: [GhcMajorVersion]
supportedGhcMajorVersions = ["7.8", "7.10"]
readGhcLinks :: FilePath -> IO GhcLinks readGhcLinks :: FilePath -> IO GhcLinks
readGhcLinks dir = do readGhcLinks dir = do
let ghcMajorVersionsPath = dir </> "supported-ghc-major-versions.yaml"
Yaml.decodeFile (fpToString ghcMajorVersionsPath) >>= \case
Nothing -> return $ GhcLinks HashMap.empty
Just (ghcMajorVersions :: [GhcMajorVersion]) -> do
let opts = let opts =
[ (arch, ver) [ (arch, ver)
| arch <- supportedArches | arch <- supportedArches
, ver <- supportedGhcMajorVersions , ver <- ghcMajorVersions
] ]
hashMap <- flip execStateT HashMap.empty hashMap <- flip execStateT HashMap.empty
$ forM_ opts $ \(arch, ver) -> do $ forM_ opts $ \(arch, ver) -> do