haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-28 11:50:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use a nullable column to speed up migration

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-23 11:30:55 +02:00
parent 9b3425d3e3
commit af2ea0952a
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Application.hs
View File

@ -403,7 +403,11 @@ fixSnapSlugs =
setCorePackages :: MonadIO m => ReaderT SqlBackend m () setCorePackages :: MonadIO m => ReaderT SqlBackend m ()
setCorePackages = setCorePackages =
updateWhere [PackageName' <-. defaultCorePackages] [PackageCore =. True] updateWhere
[ PackageName' <-. defaultCorePackages
, PackageCore ==. Nothing
]
[PackageCore =. Just True]
where where
defaultCorePackages = map PackageName $ words =<< defaultCorePackages = map PackageName $ words =<<
[ "ghc hoopl bytestring unix haskeline Cabal base time xhtml" [ "ghc hoopl bytestring unix haskeline Cabal base time xhtml"

2
Handler/StackageHome.hs
View File

@ -146,7 +146,7 @@ getStackageCabalConfigR slug = do
toBuilder '\n' toBuilder '\n'
constraint p constraint p
| packageCore p = toBuilder $ asText " installed" | Just True <- packageCore p = toBuilder $ asText " installed"
| otherwise = toBuilder (asText " ==") ++ | otherwise = toBuilder (asText " ==") ++
toBuilder (toPathPiece $ packageVersion p) toBuilder (toPathPiece $ packageVersion p)

2
Handler/UploadStackage.hs
View File

@ -156,7 +156,7 @@ putUploadStackageR = do
, packageVersion = version , packageVersion = version
, packageOverwrite = overwrite , packageOverwrite = overwrite
, packageHasHaddocks = False , packageHasHaddocks = False
, packageCore = name `member` cores , packageCore = Just $ name `member` cores
} }
setAlias setAlias

2
config/models
View File

@ -44,7 +44,7 @@ Package
version Version version Version
hasHaddocks Bool default=true hasHaddocks Bool default=true
overwrite Bool overwrite Bool
core Bool default=false core Bool Maybe -- use Maybe to speed up migration
Tag Tag
package PackageName package PackageName