From 2faf95e6802dba222283b3537c0272bf2539a625 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 28 Apr 2014 12:15:31 +0300
Subject: [PATCH] No special wiredIn treatement

---
 Data/Hackage/Views.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/Data/Hackage/Views.hs b/Data/Hackage/Views.hs
index 726ed24..0755f24 100644
--- a/Data/Hackage/Views.hs
+++ b/Data/Hackage/Views.hs
@@ -84,11 +84,8 @@ viewPVP :: Monad m
 viewPVP uploadHistory _ _ uploaded =
     helper go
   where
-    wiredIn = asSet $ setFromList $ words "base ghc template-haskell"
-
     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 nameO@(toStr -> name) range) = do
         let available = getAvailable (fromString name) (addFuzz uploaded) uploadHistory