From a192dcf1d2d4d69c6faba59ca036d33faeaf2956 Mon Sep 17 00:00:00 2001 From: Konstantin Zudov Date: Sun, 11 Oct 2015 03:36:23 +0300 Subject: [PATCH] Wildcarded unused names --- Handler/StackageHome.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/StackageHome.hs b/Handler/StackageHome.hs index 6219564..120e5c3 100644 --- a/Handler/StackageHome.hs +++ b/Handler/StackageHome.hs @@ -30,8 +30,8 @@ getStackageHomeR name = do getStackageDiffR :: SnapName -> SnapName -> Handler Html getStackageDiffR name1 name2 = do - Entity sid1 s1 <- lookupSnapshot name1 >>= maybe notFound return - Entity sid2 s2 <- lookupSnapshot name2 >>= maybe notFound return + Entity sid1 _ <- lookupSnapshot name1 >>= maybe notFound return + Entity sid2 _ <- lookupSnapshot name2 >>= maybe notFound return snapNames <- map snapshotName . snd <$> getSnapshots 0 0 let (ltsSnaps, nightlySnaps) = partition isLts $ reverse $ sort snapNames snapDiff <- getSnapshotDiff sid1 sid2