cln: hlint: Remove rendundant guard warnings.

.hlint.yaml

@@ -16,7 +16,6 @@
 - ignore: {name: "Use <$>"}
 - ignore: {name: "Unused LANGUAGE pragma"}
 - ignore: {name: "Redundant bracket"}
-- ignore: {name: "Redundant guard"}
 - ignore: {name: "Avoid reverse"}
 - ignore: {name: "Eta reduce"}
 - ignore: {name: "Use $>"}

Shake.hs

@@ -663,9 +663,9 @@ main = do
       -- With -n/--dry-run, print new content to stdout instead of
       -- updating the changelog.
       --
-      phonys (\out -> if
-        | not $ out `elem` changelogs -> Nothing
-        | otherwise -> Just $ do
+      phonys (\out -> if out `notElem` changelogs
+        then Nothing
+        else Just $ do
           tags <- lines . fromStdout <$> (cmd Shell "git tag" :: Action (Stdout String))
           oldlines <- liftIO $ lines <$> readFileStrictly out
           let

bin/_hledger-chart.hs

@@ -100,7 +100,7 @@ main = do
   let balreport = balanceReportFromMultiBalanceReport ropts (queryFromOpts d ropts) j
   let go -- | "--help" `elem` (rawopts_ $ cliopts_ chopts)    = putStr (showModeHelp chartmode) >> exitSuccess
          -- | "--version" `elem` (rawopts_ $ cliopts_ chopts) = putStrLn progversion >> exitSuccess
-         | otherwise                                       = withJournalAndChartOptsDo chopts (writeChart balreport)
+                                                           = withJournalAndChartOptsDo chopts (writeChart balreport)
   go
 
 -- copied from hledger-web

bin/hledger-smooth.hs

@@ -89,7 +89,7 @@ splitTransactionPostings :: Query -> AccountName -> [Day] -> Transaction -> ([Da
 splitTransactionPostings _q acct dates t
   -- | q `matchesTransaction` t = (dates', t')
   -- | otherwise                = (dates, t)
-  | otherwise                = (dates', t')
+                             = (dates', t')
   where
     (dates', pss') = mapAccumL (splitPosting acct) dates $ tpostings t
     t' = txnTieKnot t{tpostings=concat pss'}