ndmitchell / hoogle

Haskell API search engine
http://hoogle.haskell.org/
Other
738 stars 134 forks source link

Failure of test suite #274

Closed ndmitchell closed 5 years ago

ndmitchell commented 5 years ago

The test suite has started failing with the latest Hackage. CC @matt-noonan, visible at https://travis-ci.org/ndmitchell/hoogle/jobs/450241286

Test Action.Search.search ...................................................ooo.......ooooo......hoogle: Searching for: "(a -> m b) -> t a -> m (t b)"
Got: [Target {targetURL = "https://hackage.haskell.org/package/lifted-async/docs/Control-Concurrent-Async-Lifted.html#v:mapConcurrently", targetPackage = Just (lifted-async,"https://hackage.haskell.org/package/lifted-async"), targetModule = Just (Control.Concurrent.Async.Lifted,"https://hackage.haskell.org/package/lifted-async/docs/Control-Concurrent-Async-Lifted.html"), targetType = "", targetItem = "<span class=name><0>mapConcurrently</0></span> :: (Traversable t, MonadBaseControl IO m) =&gt; (a -&gt; m b) -&gt; t a -&gt; m (t b)", targetDocs = "Generalized version of <a>mapConcurrently</a>.\n"},Target {targetURL = "https://hackage.haskell.org/package/lifted-async/docs/Control-Concurrent-Async-Lifted-Safe.html#v:mapConcurrently", targetPackage = Just (lifted-async,"https://hackage.haskell.org/package/lifted-async"), targetModule = Just (Control.Concurrent.Async.Lifted.Safe,"https://hackage.haskell.org/package/lifted-async/docs/Control-Concurrent-Async-Lifted-Safe.html"), targetType = "", targetItem = "<span class=name><0>mapConcurrently</0></span> :: (Traversable t, MonadBaseControl IO m, Forall (Pure m)) =&gt; (a -&gt; m b) -&gt; t a -&gt; m (t b)", targetDocs = "Generalized version of <a>mapConcurrently</a>.\n"},Target {targetURL = "https://hackage.haskell.org/package/base/docs/Prelude.html#v:traverse", targetPackage = Just (base,"https://hackage.haskell.org/package/base"), targetModule = Just (Prelude,"https://hackage.haskell.org/package/base/docs/Prelude.html"), targetType = "", targetItem = "<span class=name><0>traverse</0></span> :: (Traversable t, Applicative f) =&gt; (a -&gt; f b) -&gt; t a -&gt; f (t b)", targetDocs = "Map each element of a structure to an action, evaluate these actions\nfrom left to right, and collect the results. For a version that\nignores the results see <a>traverse_</a>.\n"},Target {targetURL = "https://hackage.haskell.org/package/base/docs/Data-Traversable.html#v:traverse", targetPackage = Just (base,"https://hackage.haskell.org/package/base"), targetModule = Just (Data.Traversable,"https://hackage.haskell.org/package/base/docs/Data-Traversable.html"), targetType = "", targetItem = "<span class=name><0>traverse</0></span> :: (Traversable t, Applicative f) =&gt; (a -&gt; f b) -&gt; t a -&gt; f (t b)", targetDocs = "Map each element of a structure to an action, evaluate these actions\nfrom left to right, and collect the results. For a version that\nignores the results see <a>traverse_</a>.\n"},Target {targetURL = "https://hackage.haskell.org/package/basic-prelude/docs/BasicPrelude.html#v:traverse", targetPackage = Just (basic-prelude,"https://hackage.haskell.org/package/basic-prelude"), targetModule = Just (BasicPrelude,"https://hackage.haskell.org/package/basic-prelude/docs/BasicPrelude.html"), targetType = "", targetItem = "<span class=name><0>traverse</0></span> :: (Traversable t, Applicative f) =&gt; (a -&gt; f b) -&gt; t a -&gt; f (t b)", targetDocs = "Map each element of a structure to an action, evaluate these actions\nfrom left to right, and collect the results. For a version that\nignores the results see <a>traverse_</a>.\n"}]
 expected mapM from package base in top 10 hits.
matt-noonan commented 5 years ago

Thanks for the heads up. I think if I modify those tests so that e.g. "top 10" means "top 10, after disregarding duplicates" they'll become much less flaky. I'll give it a try and either PR or come back to brainstorm some other idea.