From 6dcefdc63383b41eba806bde363a5aa155a04ab6 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 20 Aug 2017 08:27:27 +0300 Subject: [PATCH] Add a nub (Niklas will kill me) --- Stackage/Database.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Stackage/Database.hs b/Stackage/Database.hs index 7c7e747..8531e3b 100644 --- a/Stackage/Database.hs +++ b/Stackage/Database.hs @@ -75,6 +75,7 @@ import Data.Yaml (decode) import qualified Data.Aeson as A import Types (SnapshotBranch(..)) import Data.Pool (destroyAllResources) +import Data.List (nub) currentSchema :: Int currentSchema = 1 @@ -641,12 +642,12 @@ data LatestInfo = LatestInfo , liVersion :: !Text , liGhc :: !Text } - deriving Show + deriving (Show, Eq) getLatests :: GetStackageDatabase m => Text -- ^ package name -> 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 (\s ln -> s E.^. SnapshotId E.==. ln E.^. LtsSnap) (\_ ln ->