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

Add a nub (Niklas will kill me)

Browse Source
This commit is contained in:
Michael Snoyman 2017-08-20 08:27:27 +03:00
parent 3a467a5e68
commit 6dcefdc633
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

@ -75,6 +75,7 @@ import Data.Yaml (decode)
import qualified Data.Aeson as A import qualified Data.Aeson as A
import Types (SnapshotBranch(..)) import Types (SnapshotBranch(..))
import Data.Pool (destroyAllResources) import Data.Pool (destroyAllResources)
import Data.List (nub)
currentSchema :: Int currentSchema :: Int
currentSchema = 1 currentSchema = 1
@ -641,12 +642,12 @@ data LatestInfo = LatestInfo
, liVersion :: !Text , liVersion :: !Text
, liGhc :: !Text , liGhc :: !Text
} }
deriving Show deriving (Show, Eq)
getLatests :: GetStackageDatabase m getLatests :: GetStackageDatabase m
=> Text -- ^ package name => Text -- ^ package name
-> m [LatestInfo] -> m [LatestInfo]
getLatests pname = run $ fmap concat $ forM [True, False] $ \requireDocs -> do getLatests pname = run $ fmap (nub . concat) $ forM [True, False] $ \requireDocs -> do
mlts <- latestHelper pname requireDocs mlts <- latestHelper pname requireDocs
(\s ln -> s E.^. SnapshotId E.==. ln E.^. LtsSnap) (\s ln -> s E.^. SnapshotId E.==. ln E.^. LtsSnap)
(\_ ln -> (\_ ln ->