cln: hlint: Remove redundant case warnings.

.hlint.yaml

@@ -69,7 +69,6 @@
 - ignore: {name: "Use newtype instead of data"}
 - ignore: {name: "Use elemIndex"}
 - ignore: {name: "Use =="}
-- ignore: {name: "Redundant case"}
 - ignore: {name: "Use lambda-case"}
 - ignore: {name: "Redundant lambda"}
 - ignore: {name: "Replace case with fromMaybe"}

hledger-ui/Hledger/UI/ErrorScreen.hs

@@ -59,9 +59,10 @@ esDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{}}
               withAttr ("border" <> "bold") (str "Oops. Please fix this problem then press g to reload")
               -- <+> (if ignore_assertions_ copts then withAttr ("border" <> "query") (str " ignoring") else str " not ignoring")
 
-        bottomlabel = case mode of
+        bottomlabel = quickhelp
+                        -- case mode of
                         -- Minibuffer ed -> minibuffer ed
-                        _             -> quickhelp
+                        -- _             -> quickhelp
           where
             quickhelp = borderKeysStr [
                ("h", "help")

hledger-ui/Hledger/UI/TransactionScreen.hs

@@ -113,9 +113,10 @@ tsDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportspec_=rspec@ReportSpec{
                 [] -> str ""
                 fs -> withAttr ("border" <> "query") (str $ " " ++ intercalate ", " fs)
 
-        bottomlabel = case mode of
+        bottomlabel = quickhelp
+                        -- case mode of
                         -- Minibuffer ed -> minibuffer ed
-                        _             -> quickhelp
+                        -- _             -> quickhelp
           where
             quickhelp = borderKeysStr [
                ("?", "help")