cln: hlint: Remove warnings to use library list functions.

.hlint.yaml

@@ -17,7 +17,6 @@
 - ignore: {name: "Eta reduce"}
 - ignore: {name: "Use $>"}
 - ignore: {name: "Use unless"}
-- ignore: {name: "Use any"}
 - ignore: {name: "Use =<<"}
 - ignore: {name: "Use fmap"}
 - ignore: {name: "Use <&>"}
@@ -27,14 +26,12 @@
 - ignore: {name: "Redundant <$>"}
 - ignore: {name: "Use list literal pattern"}
 - ignore: {name: "Use fewer imports"}
-- ignore: {name: "Use intercalate"}
 - ignore: {name: "Use tuple-section"}
 - ignore: {name: "Use section"}
 - ignore: {name: "Avoid lambda using `infix`"}
 - ignore: {name: "Functor law"}
 - ignore: {name: "Missing NOINLINE pragma"}
 - ignore: {name: "Use dropWhile"}
-- ignore: {name: "Use &&"}
 - ignore: {name: "Use replicate"}
 - ignore: {name: "Use void"}
 - ignore: {name: "Use elemIndex"}

hledger-lib/Hledger/Read.hs

@@ -216,11 +216,7 @@ ensureJournalFileExists f = do
 -- | Does any part of this path contain non-. characters and end with a . ?
 -- Such paths are not safe to use on Windows (cf #1056).
 isWindowsUnsafeDotPath :: FilePath -> Bool
-isWindowsUnsafeDotPath =
+isWindowsUnsafeDotPath = any (\x -> last x == '.' && any (/='.') x) . splitDirectories
-  not . null .
-  filter (not . all (=='.')) .
-  filter ((=='.').last) .
-  splitDirectories
 
 -- | Give the content for a new auto-created journal file.
 newJournalContent :: IO Text

hledger-lib/Hledger/Utils/Debug.hs

@@ -200,11 +200,9 @@ useColorOnHandle h = unsafePerformIO $ do
   no_color       <- isJust <$> lookupEnv "NO_COLOR"
   supports_color <- hSupportsANSIColor h
   let coloroption = colorOption
-  return $ and [
+  return $ not no_color
-     not no_color
+        && coloroption `notElem` ["never","no"]
-    ,coloroption `notElem` ["never","no"]
+        && (coloroption `elem` ["always","yes"] || supports_color)
-    ,coloroption `elem` ["always","yes"] || supports_color
-    ]
 
 -- Keep synced with color/colour flag definition in hledger:CliOptions.
 -- Avoid using dbg*, pshow etc. in this function (infinite loop).

hledger-lib/Text/Tabular/AsciiWide.hs

@@ -27,7 +27,7 @@ module Text.Tabular.AsciiWide
 import Data.Bifunctor (bimap)
 import Data.Maybe (fromMaybe)
 import Data.Default (Default(..))
-import Data.List (intersperse, transpose)
+import Data.List (intercalate, intersperse, transpose)
 import Data.Semigroup (stimesMonoid)
 import Data.Text (Text)
 import qualified Data.Text as T
@@ -128,7 +128,7 @@ renderTableByRowsB topts@TableOpts{prettyTable=pretty, tableBorders=borders} fc
   -- maximum width for each column
   sizes = map (fromMaybe 0 . maximumMay . map cellWidth) $ transpose cells2
   renderRs (Header s)   = [s]
-  renderRs (Group p hs) = concat . intersperse sep $ map renderRs hs
+  renderRs (Group p hs) = intercalate sep $ map renderRs hs
     where sep = renderHLine VM borders pretty sizes ch2 p
 
   -- borders and bars