hlint 1.9.15 → 1.9.16

raw patch · 11 files changed

+10/−12 lines, 11 filesdep ~hscolourPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: hscolour

API changes (from Hackage documentation)

Files

CHANGES.txt +2/−0
hlint.cabal +2/−2
src/CmdLine.hs +1/−1
src/Grep.hs +0/−1
src/HLint.hs +1/−1
src/HSE/All.hs +0/−1
src/Hint/Unsafe.hs +0/−1
src/Test/All.hs +1/−1
src/Test/Annotations.hs +1/−1
src/Test/Translate.hs +1/−2
src/Test/Util.hs +1/−1

CHANGES.txt view

@@ -1,5 +1,7 @@ Changelog for HLint +1.9.16+    #108, make "hlint ." work again 1.9.15     #106, avoid warnings with GHC 7.10     #105, build with GHC 7.10

hlint.cabal view

@@ -1,7 +1,7 @@ cabal-version:      >= 1.6 build-type:         Simple name:               hlint-version:            1.9.15+version:            1.9.16 license:            BSD3 license-file:       LICENSE category:           Development@@ -29,7 +29,7 @@ extra-source-files:     README.md     CHANGES.txt-tested-with:        GHC==7.8.3, GHC==7.6.3, GHC==7.4.2+tested-with:        GHC==7.10.1, GHC==7.8.3, GHC==7.6.3, GHC==7.4.2  source-repository head     type:     git

src/CmdLine.hs view

@@ -210,7 +210,7 @@ getFile (p:ath) exts file = do     isDir <- doesDirectoryExist $ p <\> file     if isDir then do-        let avoid x = any (`isPrefixOf` takeFileName x) [".","_"]+        let avoid x = let y = takeFileName x in "_" `isPrefixOf` y || ("." `isPrefixOf` y && not (all (== '.') y))         xs <- listFilesInside (return . not . avoid) $ p <\> file         return [x | x <- xs, drop 1 (takeExtension x) `elem` exts]      else do

src/Grep.hs view

@@ -1,4 +1,3 @@-{-# LANGUAGE RecordWildCards #-}  module Grep(runGrep) where

src/HLint.hs view

@@ -70,7 +70,7 @@             ParseOk m -> case v of                 Loud -> print m                 Quiet -> print $ prettyPrint m-                _ -> print $ fmap (const ()) m+                _ -> print $ void m         putStrLn ""  hlintTest :: Cmd -> IO ()

src/HSE/All.hs view

@@ -1,4 +1,3 @@-{-# LANGUAGE RecordWildCards #-}  module HSE.All(     module X,

src/Hint/Unsafe.hs view

@@ -1,4 +1,3 @@-{-# LANGUAGE ViewPatterns #-}  {-     Find things that are unsafe

src/Test/All.hs view

@@ -1,4 +1,4 @@-{-# LANGUAGE PatternGuards, ScopedTypeVariables, RecordWildCards, ViewPatterns #-}+{-# LANGUAGE RecordWildCards #-} {-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}  module Test.All(test) where

src/Test/Annotations.hs view

@@ -1,4 +1,4 @@-{-# LANGUAGE PatternGuards, ScopedTypeVariables, RecordWildCards, ViewPatterns #-}+{-# LANGUAGE PatternGuards, RecordWildCards #-}  -- | Check the <TEST> annotations within source and hint files. module Test.Annotations(testAnnotations) where

src/Test/Translate.hs view

@@ -1,4 +1,3 @@-{-# LANGUAGE PatternGuards, ScopedTypeVariables, RecordWildCards, ViewPatterns #-}  -- | Translate the hints to Haskell and run with GHC. module Test.Translate(testTypeCheck, testQuickCheck) where@@ -88,7 +87,7 @@             [ Qualifier an $                 Let an (BDecls an [PatBind an (toNamed "t") (UnGuardedRhs an bod) Nothing]) $                 (toNamed "test" `app` str (fileName $ ann rhs) `app` int (startLine $ ann rhs) `app`-                 str (prettyPrint lhs ++ " ==> " ++ prettyPrint rhs)) `app` (toNamed "t")+                 str (prettyPrint lhs ++ " ==> " ++ prettyPrint rhs)) `app` toNamed "t"             | (i, HintRule _ _ _ lhs rhs side note) <- zip [1..] hints, "noQuickCheck" `notElem` vars (maybeToList side)             , let vs = map (restrict side) $ nub $ filter isUnifyVar $ vars lhs ++ vars rhs             , let op = if any isRemovesError note then "?==>" else "==>"

src/Test/Util.hs view

@@ -1,4 +1,4 @@-{-# LANGUAGE PatternGuards, ScopedTypeVariables, RecordWildCards, ViewPatterns #-}+{-# LANGUAGE RecordWildCards #-}  module Test.Util(     withTests, tested, passed, failed, progress