#167, disable pinchot, which has a very large TH generated type

ndmitchell · Jul 15, 2016 · 924b2aa · 924b2aa
1 parent 0c1906a
commit 924b2aa
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Input/Set.hs b/src/Input/Set.hs
@@ -11,8 +11,10 @@ import Prelude
 
 -- | Return information about which items are in a particular set.
 setStackage :: FilePath -> IO (Set.Set String)
-setStackage file = Set.fromList . delete "telegram-api" . f . lines <$> readFile' file
+setStackage file = Set.fromList . filter (`notElem` stackOverflow) . f . lines <$> readFile' file
     where
+        stackOverflow = ["telegram-api","pinchot"] -- see https://github.com/ndmitchell/hoogle/issues/167
+
         f (x:xs) | Just x <- stripPrefix "constraints:" x =
                     map (fst . word1) $ takeWhile (" " `isPrefixOf`) $ (' ':x) : xs
                  | otherwise = f xs