hlint 1.9.14 → 1.9.15

raw patch · 20 files changed

+48/−20 lines, 20 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGES.txt +3/−0
• data/Default.hs +1/−1
• data/HLint_QuickCheck.hs +1/−1
• hlint.cabal +2/−1
• src/Apply.hs +2/−2
• src/HLint.hs +2/−1
• src/HSE/FreeVars.hs +2/−1
• src/HSE/Scope.hs +2/−1
• src/HSE/Util.hs +2/−1
• src/Hint/All.hs +2/−1
• src/Hint/Import.hs +2/−1
• src/Hint/List.hs +2/−1
• src/Hint/Match.hs +2/−1
• src/Hint/Monad.hs +2/−1
• src/Hint/Type.hs +2/−1
• src/Language/Haskell/HLint2.hs +2/−2
• src/PreludeEx.hs +11/−0
• src/Settings.hs +2/−1
• src/Test/InputOutput.hs +2/−1
• src/Test/Proof.hs +2/−1

@@ -1,5 +1,8 @@ Changelog for HLint +1.9.15+    #106, avoid warnings with GHC 7.10+    #105, build with GHC 7.10 1.9.14     #649, don't suggest const for values using RecordWildCards 1.9.13

@@ -185,7 +185,7 @@     where _ = noQuickCheck error = foldr  (&&) True ==> and error = foldl  (&&) True ==> and where note = IncreasesLaziness-error = foldr1 (&&)  ==> and where note = RemovesError "on []"+error = foldr1 (&&)  ==> and where note = RemovesError "on []"; _ = noQuickCheck error = foldl1 (&&)  ==> and where note = RemovesError "on []" error = foldr  (||) False ==> or error = foldl  (||) False ==> or where note = IncreasesLaziness

@@ -19,7 +19,7 @@ import Test.QuickCheck.Test hiding (test) import Test.QuickCheck.Modifiers as X -default(Maybe Bool,Int,Dbl)+default(Maybe Bool,[Bool],Int,Dbl)  -- We need a Show instance that nails down the sides, so defaulting works. -- The one from Text.Show.Functions is insufficient.

@@ -1,7 +1,7 @@ cabal-version:      >= 1.6 build-type:         Simple name:               hlint-version:            1.9.14+version:            1.9.15 license:            BSD3 license-file:       LICENSE category:           Development@@ -76,6 +76,7 @@         Report         Util         Parallel+        PreludeEx         HSE.All         HSE.Bracket         HSE.Evaluate

@@ -1,14 +1,14 @@  module Apply(applyHints, applyHintFile, applyHintFiles) where +import Prelude()+import PreludeEx import HSE.All import Hint.All-import Control.Applicative import Data.Tuple.Extra import Data.Either import Data.List.Extra import Data.Maybe-import Data.Monoid import Data.Ord import Settings import Idea

@@ -3,7 +3,8 @@  module HLint(hlint, Suggestion, suggestionLocation, suggestionSeverity, Severity(..)) where -import Control.Applicative+import Prelude()+import PreludeEx import Control.Monad.Extra import System.Console.CmdArgs.Verbosity import Data.List

@@ -2,8 +2,9 @@  module HSE.FreeVars(FreeVars, freeVars, vars, varss, pvars, declBind) where +import Prelude()+import PreludeEx import HSE.Type-import Data.Monoid import qualified Data.Set as Set import Data.Set(Set) 

@@ -4,11 +4,12 @@     scopeMatch, scopeMove     ) where +import Prelude()+import PreludeEx import HSE.Type import HSE.Util import Data.List import Data.Maybe-import Data.Monoid  {- the hint file can do:

@@ -2,7 +2,8 @@  module HSE.Util where -import Control.Applicative+import Prelude()+import PreludeEx import Control.Monad import Data.List import Data.Maybe

@@ -4,11 +4,12 @@     resolveHints, hintRules, resolveBuiltin, builtinHints     ) where +import Prelude()+import PreludeEx import Settings import Data.Either import Data.List import Data.Maybe-import Data.Monoid import Hint.Type  import Hint.Match

@@ -42,8 +42,9 @@  module Hint.Import(importHint) where +import Prelude()+import PreludeEx import Hint.Type-import Control.Applicative import Data.List.Extra import Data.Maybe 

@@ -27,7 +27,8 @@  module Hint.List(listHint) where -import Control.Applicative+import Prelude()+import PreludeEx import Hint.Type  

@@ -39,6 +39,8 @@  module Hint.Match(readMatch) where +import Prelude()+import PreludeEx import Data.List.Extra import Data.Maybe import Data.Data@@ -46,7 +48,6 @@ import Settings import Hint.Type import Control.Monad-import Control.Applicative import Data.Tuple.Extra import Util import qualified Data.Set as Set

@@ -36,8 +36,9 @@  module Hint.Monad(monadHint) where +import Prelude()+import PreludeEx import Data.Tuple.Extra-import Control.Applicative import Data.Maybe import Data.List import Hint.Type

@@ -1,9 +1,10 @@  module Hint.Type(module Hint.Type, module Idea, module HSE.All) where +import Prelude()+import PreludeEx import HSE.All import Idea-import Data.Monoid   type DeclHint = Scope -> Module_ -> Decl_ -> [Idea]

@@ -28,6 +28,8 @@     Encoding, defaultEncoding, readEncoding, useEncoding     ) where +import Prelude()+import PreludeEx import Settings import Idea import Apply@@ -37,10 +39,8 @@ import CmdLine import Paths_hlint -import Control.Applicative import Data.Tuple.Extra import Data.List.Extra-import Data.Monoid import System.FilePath  

@@ -0,0 +1,11 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-} -- for GHC 7.9 compatibility++-- | Alternative Prelude which exports more things, so we can be+--   warning-compatible with GHC 7.10.+module PreludeEx(+    module Prelude,+    Monoid(..), Applicative(..), (<$>)+    ) where++import Data.Monoid+import Control.Applicative

@@ -7,12 +7,13 @@     readSettings2, readPragma, findSettings2, addInfix     ) where +import Prelude()+import PreludeEx import HSE.All import Control.Monad.Extra import Data.Char import Data.Either import Data.List.Extra-import Data.Monoid import System.FilePath import Util 

@@ -3,7 +3,8 @@ -- | Check the input/output pairs in the tests/ directory module Test.InputOutput(testInputOutput) where -import Control.Applicative+import Prelude()+import PreludeEx import Data.Tuple.Extra import Control.Exception import Control.Monad

@@ -3,7 +3,8 @@ -- | Check the coverage of the hints given a list of Isabelle theorems module Test.Proof(proof) where -import Control.Applicative+import Prelude()+import PreludeEx import Data.Tuple.Extra import Control.Monad import Control.Monad.Trans.State