haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-17 06:38:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Ignore spid errors

Browse Source
This commit is contained in:
Michael Snoyman 2017-08-07 21:33:43 +03:00
parent b86d720954
commit 70891a9799
No known key found for this signature in database
GPG Key ID: A048E8C057E86876
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
Stackage/Database.hs
View File

@ -405,14 +405,21 @@ addDocMap name dm = do
[sid] <- selectKeysList [SnapshotName ==. name] []
putStrLn $ "Adding doc map: " ++ toPathPiece name
forM_ (mapToList dm) $ \(pkg, pd) -> do
-- TODO determine why _spids is sometimes non-null
pid:_pids <- selectKeysList [PackageName ==. pkg] []
spid:_spids <- selectKeysList [SnapshotPackageSnapshot ==. sid, SnapshotPackagePackage ==. pid] []
forM_ (mapToList $ pdModules pd) $ \(mname, _paths) ->
insert_ Module
{ modulePackage = spid
, moduleName = mname
}
pids <- selectKeysList [PackageName ==. pkg] []
pid <-
case pids of
[pid] -> return pid
_ -> error $ "addDocMap (1): " ++ show (name, pkg, pids)
spids <- selectKeysList [SnapshotPackageSnapshot ==. sid, SnapshotPackagePackage ==. pid] []
case spids of
[spid] ->
forM_ (mapToList $ pdModules pd) $ \(mname, _paths) ->
insert_ Module
{ modulePackage = spid
, moduleName = mname
}
-- FIXME figure out why this happens for the ghc package with GHC 8.2.1
_ -> sayErrString $ "addDocMap (2): " ++ show (name, pkg, pid, spids)
run :: GetStackageDatabase m => SqlPersistT IO a -> m a
run inner = do