Merge pull request #2135 from github/clean-per-weeder

Clean up `weeder` warnings

bench/Main.hs

@@ -12,11 +12,11 @@ import           Semantic.Task (withOptions)
 import           Semantic.Util hiding (evalRubyProject, evalPythonProject, evaluateProject)
 
 -- Duplicating this stuff from Util to shut off the logging
-evalRubyProject   = justEvaluating <=< evaluateProject (Proxy :: Proxy 'Language.Ruby)   rubyParser   Language.Ruby
-evalPythonProject = justEvaluating <=< evaluateProject (Proxy :: Proxy 'Language.Python) pythonParser Language.Python
+evalRubyProject       = justEvaluating <=< evaluateProject (Proxy :: Proxy 'Language.Ruby)       rubyParser
+evalPythonProject     = justEvaluating <=< evaluateProject (Proxy :: Proxy 'Language.Python)     pythonParser
 
-evaluateProject proxy parser lang paths = withOptions defaultOptions $ \ config logger statter ->
-  evaluateProject' (TaskConfig config logger statter) proxy parser lang paths
+evaluateProject proxy parser paths = withOptions defaultOptions $ \ config logger statter ->
+  evaluateProject' (TaskConfig config logger statter) proxy parser paths
 
 -- We use `fmap show` to ensure that all the parts of the result of evaluation are
 -- evaluated themselves. While an NFData instance is the most morally correct way
@@ -30,10 +30,10 @@ rbEval :: FilePath -> Benchmarkable
 rbEval p = whnfIO . fmap show . evalRubyProject $ ["bench/bench-fixtures/ruby/" <> p]
 
 pyCall :: FilePath -> Benchmarkable
-pyCall p = whnfIO $ callGraphProject pythonParser (Proxy @'Language.Python) Language.Python defaultOptions ["bench/bench-fixtures/python/" <> p]
+pyCall p = whnfIO $ callGraphProject pythonParser (Proxy @'Language.Python) defaultOptions ["bench/bench-fixtures/python/" <> p]
 
 rbCall :: FilePath -> Benchmarkable
-rbCall p = whnfIO $ callGraphProject rubyParser (Proxy @'Language.Ruby) Language.Ruby defaultOptions ["bench/bench-fixtures/ruby/" <> p]
+rbCall p = whnfIO $ callGraphProject rubyParser (Proxy @'Language.Ruby) defaultOptions ["bench/bench-fixtures/ruby/" <> p]
 
 main :: IO ()
 main = defaultMain

semantic.cabal

@@ -310,12 +310,10 @@ test-suite test
                      , Test.Hspec.LeanCheck
   build-depends:       aeson
                      , algebraic-graphs
-                     , array
                      , async
                      , base
                      , bifunctors
                      , bytestring
-                     , comonad
                      , containers
                      , effects
                      , fastsum
@@ -368,7 +366,6 @@ test-suite doctests
   ghc-options:         -dynamic -threaded -j
   build-depends:       base
                      , doctest
-                     , QuickCheck
 
 benchmark evaluation
   hs-source-dirs:      bench

test/Control/Abstract/Evaluator/Spec.hs

@@ -1,7 +1,6 @@
 {-# LANGUAGE TypeOperators #-}
 module Control.Abstract.Evaluator.Spec
 ( spec
-, SpecEff(..)
 ) where
 
 import Control.Abstract

test/Data/Functor/Listable.hs

@@ -11,18 +11,7 @@ module Data.Functor.Listable
 , cons5
 , cons6
 , (\/)
-, Tier
-, Listable1(..)
-, tiers1
-, Listable2(..)
-, tiers2
-, liftCons1
-, liftCons2
-, liftCons3
-, liftCons4
-, liftCons5
 , ListableF(..)
-, ListableF2(..)
 , addWeight
 , ofWeight
 , ListableSyntax