From 93f3ad6e5d700ac8419bf0c97412ee23b44e8cc3 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 26 Nov 2018 14:20:58 +0000
Subject: Linting

---
 app/Main.hs               |  2 +-
 src/Xmobar/App/Compile.hs | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 51bfe8b..fb1a7ca 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -37,7 +37,7 @@ main = do
   (c,defaultings) <- case file of
                        [cfgfile] -> config cfgfile usage
                        _ -> defConfig usage
-  unless (null defaultings || (not $ any (== Debug) o)) $ putStrLn $
+  unless (null defaultings || notElem Debug o) $ putStrLn $
     "Fields missing from config defaulted: " ++ intercalate "," defaultings
   doOpts c o >>= xmobar
 
diff --git a/src/Xmobar/App/Compile.hs b/src/Xmobar/App/Compile.hs
index bc7147c..c3f52f9 100644
--- a/src/Xmobar/App/Compile.hs
+++ b/src/Xmobar/App/Compile.hs
@@ -73,9 +73,9 @@ shouldRecompile src bin lib = do
       trace "Xmobar doing recompile because some files have changed."
       return True
     else do
-      trace $ "Xmobar skipping recompile because it is not forced \
-              \ (e.g. via --recompile), and not any *.hs / *.lhs / *.hsc \
-              \ files in lib/ have been changed."
+      trace "Xmobar skipping recompile because it is not forced \
+            \ (e.g. via --recompile), and not any *.hs / *.lhs / *.hsc \
+            \ files in lib/ have been changed."
       return False
   where isSource = flip elem [".hs",".lhs",".hsc"] . takeExtension
         allFiles t = do
@@ -91,7 +91,7 @@ runProc :: FilePath -> [String] -> FilePath -> Handle -> IO ProcessHandle
 runProc bin args dir eh =
   runProcess bin args (Just dir) Nothing Nothing Nothing (Just eh)
 
-xmessage :: [Char] -> IO System.Posix.Types.ProcessID
+xmessage :: String -> IO System.Posix.Types.ProcessID
 xmessage msg = forkProcess $
   executeFile "xmessage" True ["-default", "okay", replaceUnicode msg] Nothing
   where -- Replace some of the unicode symbols GHC uses in its output
@@ -101,7 +101,7 @@ xmessage msg = forkProcess $
          '\8217' -> '`'  -- ’
          _ -> c
 
-ghcErrorMsg :: (Monad m, Show a) => [Char] -> a -> [Char] -> m String
+ghcErrorMsg :: (Monad m, Show a) => String -> a -> String -> m String
 ghcErrorMsg src status ghcErr = return . unlines $
   ["Error detected while loading xmobar configuration file: " ++ src]
   ++ lines (if null ghcErr then show status else ghcErr)
-- 
cgit v1.2.3