haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-30 12:50:24 +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

39
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,24 +19,24 @@ 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 opts = let ghcMajorVersionsPath = dir </> "supported-ghc-major-versions.yaml"
[ (arch, ver) Yaml.decodeFile (fpToString ghcMajorVersionsPath) >>= \case
| arch <- supportedArches Nothing -> return $ GhcLinks HashMap.empty
, ver <- supportedGhcMajorVersions Just (ghcMajorVersions :: [GhcMajorVersion]) -> do
] let opts =
hashMap <- flip execStateT HashMap.empty [ (arch, ver)
$ forM_ opts $ \(arch, ver) -> do | arch <- supportedArches
let fileName = "ghc-" <> ver <> "-links.yaml" , ver <- ghcMajorVersions
let path = dir ]
</> fpFromText (toPathPiece arch) hashMap <- flip execStateT HashMap.empty
</> fpFromText fileName $ forM_ opts $ \(arch, ver) -> do
whenM (liftIO $ isFile path) $ do let fileName = "ghc-" <> ver <> "-links.yaml"
text <- liftIO $ readTextFile path let path = dir
modify (HashMap.insert (arch, ver) text) </> fpFromText (toPathPiece arch)
return $ GhcLinks hashMap </> fpFromText fileName
whenM (liftIO $ isFile path) $ do
text <- liftIO $ readTextFile path
modify (HashMap.insert (arch, ver) text)
return $ GhcLinks hashMap