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

Don't assume just one result

Browse Source
This commit is contained in:
Michael Snoyman 2017-08-07 13:55:09 +03:00
parent 3a1da33a71
commit b5185e0050
No known key found for this signature in database
GPG Key ID: A048E8C057E86876
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Stackage/Database.hs
View File

@ -405,8 +405,9 @@ addDocMap name dm = do
[sid] <- selectKeysList [SnapshotName ==. name] [] [sid] <- selectKeysList [SnapshotName ==. name] []
putStrLn $ "Adding doc map: " ++ toPathPiece name putStrLn $ "Adding doc map: " ++ toPathPiece name
forM_ (mapToList dm) $ \(pkg, pd) -> do forM_ (mapToList dm) $ \(pkg, pd) -> do
[pid] <- selectKeysList [PackageName ==. pkg] [] -- TODO determine why _spids is sometimes non-null
[spid] <- selectKeysList [SnapshotPackageSnapshot ==. sid, SnapshotPackagePackage ==. pid] [] pid:_pids <- selectKeysList [PackageName ==. pkg] []
spid:_spids <- selectKeysList [SnapshotPackageSnapshot ==. sid, SnapshotPackagePackage ==. pid] []
forM_ (mapToList $ pdModules pd) $ \(mname, _paths) -> forM_ (mapToList $ pdModules pd) $ \(mname, _paths) ->
insert_ Module insert_ Module
{ modulePackage = spid { modulePackage = spid