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

Wildcarded unused names

Browse Source
This commit is contained in:
Konstantin Zudov 2015-10-11 03:36:23 +03:00
parent 734e3b60b3
commit a192dcf1d2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/StackageHome.hs
View File

@ -30,8 +30,8 @@ getStackageHomeR name = do
getStackageDiffR :: SnapName -> SnapName -> Handler Html getStackageDiffR :: SnapName -> SnapName -> Handler Html
getStackageDiffR name1 name2 = do getStackageDiffR name1 name2 = do
Entity sid1 s1 <- lookupSnapshot name1 >>= maybe notFound return Entity sid1 _ <- lookupSnapshot name1 >>= maybe notFound return
Entity sid2 s2 <- lookupSnapshot name2 >>= maybe notFound return Entity sid2 _ <- lookupSnapshot name2 >>= maybe notFound return
snapNames <- map snapshotName . snd <$> getSnapshots 0 0 snapNames <- map snapshotName . snd <$> getSnapshots 0 0
let (ltsSnaps, nightlySnaps) = partition isLts $ reverse $ sort snapNames let (ltsSnaps, nightlySnaps) = partition isLts $ reverse $ sort snapNames
snapDiff <- getSnapshotDiff sid1 sid2 snapDiff <- getSnapshotDiff sid1 sid2