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

No special wiredIn treatement

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-28 12:15:31 +03:00
parent 0f7a9068a7
commit 2faf95e680
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Data/Hackage/Views.hs
View File

@ -84,11 +84,8 @@ viewPVP :: Monad m
viewPVP uploadHistory _ _ uploaded = viewPVP uploadHistory _ _ uploaded =
helper go helper go
where where
wiredIn = asSet $ setFromList $ words "base ghc template-haskell"
toStr (Distribution.Package.PackageName name) = name toStr (Distribution.Package.PackageName name) = name
go (Dependency name _) | toStr name `member` wiredIn = return $ Dependency name anyVersion
go orig@(Dependency _ range) | hasUpperBound range = return orig go orig@(Dependency _ range) | hasUpperBound range = return orig
go orig@(Dependency nameO@(toStr -> name) range) = do go orig@(Dependency nameO@(toStr -> name) range) = do
let available = getAvailable (fromString name) (addFuzz uploaded) uploadHistory let available = getAvailable (fromString name) (addFuzz uploaded) uploadHistory