github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

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

Browse Source 
Clean up `weeder` warnings
This commit is contained in:
Rick Winfrey 2018-08-14 10:42:23 -07:00 committed by GitHub
commit 3aeead2bfe
4 changed files with 6 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
bench/Main.hs
View File

@ -12,11 +12,11 @@ import Semantic.Task (withOptions)
import Semantic.Util hiding (evalRubyProject, evalPythonProject, evaluateProject) import Semantic.Util hiding (evalRubyProject, evalPythonProject, evaluateProject)
-- Duplicating this stuff from Util to shut off the logging -- Duplicating this stuff from Util to shut off the logging
evalRubyProject = justEvaluating <=< evaluateProject (Proxy :: Proxy 'Language.Ruby) rubyParser Language.Ruby evalRubyProject = justEvaluating <=< evaluateProject (Proxy :: Proxy 'Language.Ruby) rubyParser
evalPythonProject = justEvaluating <=< evaluateProject (Proxy :: Proxy 'Language.Python) pythonParser Language.Python evalPythonProject = justEvaluating <=< evaluateProject (Proxy :: Proxy 'Language.Python) pythonParser
evaluateProject proxy parser lang paths = withOptions defaultOptions $ \ config logger statter -> evaluateProject proxy parser paths = withOptions defaultOptions $ \ config logger statter ->
evaluateProject' (TaskConfig config logger statter) proxy parser lang paths evaluateProject' (TaskConfig config logger statter) proxy parser paths
-- We use `fmap show` to ensure that all the parts of the result of evaluation are -- 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 -- 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] rbEval p = whnfIO . fmap show . evalRubyProject $ ["bench/bench-fixtures/ruby/" <> p]
pyCall :: FilePath -> Benchmarkable 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 :: 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 :: IO ()
main = defaultMain main = defaultMain

3
semantic.cabal
View File

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

1
test/Control/Abstract/Evaluator/Spec.hs
View File

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

11
test/Data/Functor/Listable.hs
View File

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