hlint 1.8.58 → 1.8.59

raw patch · 4 files changed

+6/−3 lines, 4 files

Files

CHANGES.txt +2/−0
hlint.cabal +1/−1
src/CmdLine.hs +1/−0
src/Util.hs +2/−2

CHANGES.txt view

@@ -1,5 +1,7 @@ Changelog for HLint +1.8.59+    #27, fix up directory file searching 1.8.58     Move the API to Language.Haskell.HLint2     #638, ensure $! doesn't break strictness with strict fields

hlint.cabal view

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

src/CmdLine.hs view

@@ -24,6 +24,7 @@ automatic Cmd{..} = do     cmdDataDir <- if cmdDataDir == "" then getDataDir else return cmdDataDir     cmdPath <- return $ if null cmdPath then ["."] else cmdPath+    cmdExtension <- return $ if null cmdExtension then ["hs", "lhs"] else cmdExtension     return Cmd{..}

src/Util.hs view

@@ -29,8 +29,8 @@ getDirectoryContentsRecursive dir = do     xs <- getDirectoryContents dir     (dirs,files) <- partitionM doesDirectoryExist [dir </> x | x <- xs, not $ isBadDir x]-    rest <- concatMapM getDirectoryContentsRecursive dirs-    return $ files++rest+    rest <- concatMapM getDirectoryContentsRecursive $ sort dirs+    return $ sort files ++ rest     where         isBadDir x = "." `isPrefixOf` x || "_" `isPrefixOf` x