hlint 1.9.1 → 1.9.2

raw patch · 4 files changed

+9/−4 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGES.txt +2/−0
hlint.cabal +1/−1
src/CmdLine.hs +2/−0
src/HLint.hs +4/−3

CHANGES.txt view

@@ -1,5 +1,7 @@ Changelog for HLint +1.9.2+    #68, add --no-summary 1.9.1     #65, add flip (>>=) ==> (=<<) and the reverse     #61, add --json flag

hlint.cabal view

@@ -1,7 +1,7 @@ cabal-version:      >= 1.6 build-type:         Simple name:               hlint-version:            1.9.1+version:            1.9.2 license:            BSD3 license-file:       LICENSE category:           Development

src/CmdLine.hs view

@@ -75,6 +75,7 @@         ,cmdCppSimple :: Bool         ,cmdCppAnsi :: Bool         ,cmdJson :: Bool                -- ^ display hint data as JSON+        ,cmdNoSummary :: Bool           -- ^ do not show the summary info         }     | CmdGrep         {cmdFiles :: [FilePath]    -- ^ which files to run it on, nothing = none given@@ -127,6 +128,7 @@         ,cmdCppSimple = nam_ "cpp-simple" &= help "Use a simple CPP (strip # lines)"         ,cmdCppAnsi = nam_ "cpp-ansi" &= help "Use CPP in ANSI compatibility mode"         ,cmdJson = nam_ "json" &= help "Display hint data as JSON"+        ,cmdNoSummary = nam_ "no-summary" &= help "Do not show summary information"         } &= auto &= explicit &= name "lint"     ,CmdGrep         {cmdFiles = def &= args &= typ "FILE/DIR"

src/HLint.hs view

@@ -139,7 +139,8 @@                 forM_ cmdReports $ \x -> do                     outStrLn $ "Writing report to " ++ x ++ " ..."                     writeReport cmdDataDir x showideas-            outStrLn $-                (let i = length showideas in if i == 0 then "No suggestions" else show i ++ " suggestion" ++ ['s'|i/=1]) ++-                (let i = length hideideas in if i == 0 then "" else " (" ++ show i ++ " ignored)")+            unless cmdNoSummary $+                outStrLn $+                    (let i = length showideas in if i == 0 then "No suggestions" else show i ++ " suggestion" ++ ['s'|i/=1]) +++                    (let i = length hideideas in if i == 0 then "" else " (" ++ show i ++ " ignored)")     return $ map Suggestion showideas