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

Prefer ZIP files for Windows

Browse Source
This commit is contained in:
Michael Snoyman 2016-12-13 14:00:07 +02:00
parent e5a7e9b2e8
commit 7e44c31152
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/DownloadStack.hs
View File

@ -35,7 +35,7 @@ getLatestMatcher man = do
let pattern' = pattern ++ "." let pattern' = pattern ++ "."
Object top <- return val Object top <- return val
Array assets <- lookup "assets" top Array assets <- lookup "assets" top
getFirst $ fold $ map (First . findMatch pattern') assets headMay $ preferZip $ catMaybes $ map (findMatch pattern') assets
where where
findMatch pattern' (Object o) = do findMatch pattern' (Object o) = do
String name <- lookup "name" o String name <- lookup "name" o
@ -44,3 +44,6 @@ getLatestMatcher man = do
String url <- lookup "browser_download_url" o String url <- lookup "browser_download_url" o
Just url Just url
findMatch _ _ = Nothing findMatch _ _ = Nothing
preferZip = map snd . sortBy (comparing fst) . map
(\x -> (if ".zip" `isSuffixOf` x then 0 else 1 :: Int, x))