git.iko.soy/stackage
on master help sign in
Create Stackage server bundles
commitcce500244a3779b5200a711abffdbf783bd34e53 authorMichael Snoyman <michael@snoyman.com> dateThu 17 Apr 2014, 19:06 (13 years ago) parent19f239d
5 files changed+88−9
compare with master
unifiedsplit
.gitignore+3 Stackage/InstallInfo.hs+30−9 Stackage/ServerFiles.hs+51 create-stackage-tarball.sh+3 stackage.cabal+1
.gitignore+3
@@ -16,3 +16,6 @@ cabal-dev
1616build-plan.txt
1717hackage-map.txt
1818module-name-conflicts.txt
19+/hackage
20+/desc
21+*.stackage
Stackage/InstallInfo.hs+30−9
@@ -8,6 +8,7 @@ import Control.Monad (forM_, unless)
88import Data.List (foldl')
99import qualified Data.Map as Map
1010import qualified Data.Set as Set
11+import Data.Time (getCurrentTime, formatTime)
1112import Data.Version (showVersion)
1213import qualified Distribution.Text
1314import Distribution.Version (simplifyVersionRange, withinRange)
@@ -15,9 +16,12 @@ import Stackage.GhcPkg
1516import Stackage.HaskellPlatform
1617import Stackage.LoadDatabase
1718import Stackage.NarrowDatabase
19+import Stackage.ServerFiles
1820import Stackage.Types
1921import Stackage.Util
22+import qualified System.IO as IO
2023import qualified System.IO.UTF8
24+import System.Locale (defaultTimeLocale)
2125import System.Exit (exitFailure)
2226
2327dropExcluded :: SelectSettings
@@ -87,15 +91,32 @@ getInstallInfo settings = do
8791
8892 error "Conflicting build plan, exiting"
8993
90− return InstallInfo
91− { iiCore = totalCore
92− , iiPackages = Map.map biToSPI final
93− , iiOptionalCore = maybe
94− Map.empty
95− (Map.fromList . map (\(PackageIdentifier p v) -> (p, v)) . Set.toList . hplibs)
96− mhp
97− , iiPackageDB = pdb
98− }
94+ let ii = InstallInfo
95+ { iiCore = totalCore
96+ , iiPackages = Map.map biToSPI final
97+ , iiOptionalCore = maybe
98+ Map.empty
99+ (Map.fromList . map (\(PackageIdentifier p v) -> (p, v)) . Set.toList . hplibs)
100+ mhp
101+ , iiPackageDB = pdb
102+ }
103+
104+ putStrLn "Creating hackage file (for publishing to Stackage server)"
105+ IO.withBinaryFile "hackage" IO.WriteMode $ createHackageFile ii
106+
107+ putStrLn "Creating desc file (for publishing to Stackage server)"
108+ now <- getCurrentTime
109+ System.IO.UTF8.writeFile "desc" $ concat
110+ [ "Stackage build for GHC "
111+ , let GhcMajorVersion x y = selectGhcVersion settings
112+ in show x ++ "." ++ show y
113+ , ", "
114+ , formatTime defaultTimeLocale "%Y-%m-%d\n" now
115+ , "Generated on "
116+ , show now
117+ ]
118+
119+ return ii
99120
100121biToSPI :: BuildInfo -> SelectedPackageInfo
101122biToSPI BuildInfo {..} = SelectedPackageInfo
Stackage/ServerFiles.hsnew file+51
@@ -0,0 +1,51 @@
1+-- | Create the files necessary for Stackage server.
2+module Stackage.ServerFiles
3+ ( createHackageFile
4+ ) where
5+
6+import Stackage.Util
7+import Stackage.Types
8+import qualified Data.Map as Map
9+import Control.Exception (throwIO)
10+import qualified Codec.Archive.Tar as Tar
11+import qualified Data.ByteString.Lazy as L
12+import Control.Arrow (second)
13+import Distribution.Text (display)
14+import System.IO (Handle, hPutStrLn)
15+
16+createHackageFile :: InstallInfo -> Handle -> IO ()
17+createHackageFile ii h = do
18+ indextargz <- getTarballName
19+ indexLBS <- L.readFile indextargz
20+ loop $ Tar.read indexLBS
21+ where
22+ selected = Map.fromList . map toStrs . Map.toList $
23+ fmap spiVersion (iiPackages ii)
24+ `Map.union` iiOptionalCore ii
25+
26+ toStrs (PackageName name, version) = (name, display version)
27+
28+ loop Tar.Done = return ()
29+ loop (Tar.Fail e) = throwIO e
30+ loop (Tar.Next e es) = go e >> loop es
31+
32+ go e =
33+ case parsePair $ Tar.entryPath e of
34+ Nothing -> return ()
35+ Just (name, version) ->
36+ case Map.lookup name selected of
37+ Just version' | version /= version' -> return ()
38+ _ -> hPutStrLn h $ concat [name, "-", version]
39+
40+parsePair :: String -> Maybe (String, String)
41+parsePair s =
42+ case splitOn '/' s of
43+ [name, version, cabal] | name ++ ".cabal" == cabal -> Just (name, version)
44+ _ -> Nothing
45+
46+splitOn :: Eq a => a -> [a] -> [[a]]
47+splitOn _ [] = []
48+splitOn c x =
49+ y : splitOn c z
50+ where
51+ (y, z) = second (drop 1) $ break (== c) x
create-stackage-tarball.shnew file+3
@@ -0,0 +1,3 @@
1+#!/bin/bash -ex
2+
3+tar czfv ghc-$(ghc --numeric-version)-$(date +%Y-%m-%d).stackage hackage desc patching/tarballs/
stackage.cabal+1
@@ -29,6 +29,7 @@ library
2929 Stackage.CheckCabalVersion
3030 Stackage.Select
3131 Stackage.GhcPkg
32+ Stackage.ServerFiles
3233 build-depends: base >= 4 && < 5
3334 , containers
3435 , Cabal >= 1.14