hlint 1.8.35 → 1.8.36

raw patch · 3 files changed

+5/−4 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hlint.cabal +1/−1
• src/CmdLine.hs +3/−2
• src/Settings.hs +1/−1

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

@@ -118,7 +118,8 @@     findHints <- concatMapM (getFile path exts2) [x | FindHints x <- opt]      let hintFiles = [x | Hints x <- opt]-    hints <- mapM (getHintFile dataDir) $ hintFiles ++ ["HLint" | null hintFiles]+    let withHints = [x | WithHint x <- opt]+    hints <- mapM (getHintFile dataDir) $ hintFiles ++ ["HLint" | null hintFiles && null withHints]     let givenHints = if null hintFiles then [] else hints      let languages = getExtensions [x | Language x <- opt]@@ -139,7 +140,7 @@         ,cmdFiles = files         ,cmdHintFiles = hints         ,cmdGivenHints = givenHints-        ,cmdWithHints = [x | WithHint x <- opt]+        ,cmdWithHints = withHints         ,cmdReports = [x | Report x <- opt]         ,cmdIgnore = [x | Skip x <- opt]         ,cmdShowAll = ShowAll `elem` opt

@@ -88,7 +88,7 @@ readSetting s (FunBind _ [Match _ (Ident _ (getSeverity -> Just severity)) pats (UnGuardedRhs _ bod) bind])     | InfixApp _ lhs op rhs <- bod, opExp op ~= "==>" =         let (a,b) = readSide $ childrenBi bind in-        [MatchExp severity (if null names then defaultHintName else head names) s (fromParen lhs) (fromParen rhs) a b]+        [MatchExp severity (headDef defaultHintName names) s (fromParen lhs) (fromParen rhs) a b]     | otherwise = [Classify severity n func | n <- names2, func <- readFuncs bod]     where         names = filter notNull $ getNames pats bod