From b5185e0050386921d286abc3fedd207147ae6aee Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 7 Aug 2017 13:55:09 +0300 Subject: [PATCH] Don't assume just one result --- Stackage/Database.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Stackage/Database.hs b/Stackage/Database.hs index 0ea0e93..2b4e05b 100644 --- a/Stackage/Database.hs +++ b/Stackage/Database.hs @@ -405,8 +405,9 @@ addDocMap name dm = do [sid] <- selectKeysList [SnapshotName ==. name] [] putStrLn $ "Adding doc map: " ++ toPathPiece name forM_ (mapToList dm) $ \(pkg, pd) -> do - [pid] <- selectKeysList [PackageName ==. pkg] [] - [spid] <- selectKeysList [SnapshotPackageSnapshot ==. sid, SnapshotPackagePackage ==. pid] [] + -- 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