summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/App/Compile.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2018-11-26 14:20:58 +0000
committerjao <jao@gnu.org>2018-11-26 14:20:58 +0000
commit93f3ad6e5d700ac8419bf0c97412ee23b44e8cc3 (patch)
treee618fc986126d619a2cb75b4c5e47313e7ad4c08 /src/Xmobar/App/Compile.hs
parentc4b451322c10fd3a0630416a5ba2acb2240236e9 (diff)
downloadxmobar-93f3ad6e5d700ac8419bf0c97412ee23b44e8cc3.tar.gz
xmobar-93f3ad6e5d700ac8419bf0c97412ee23b44e8cc3.tar.bz2
Linting
Diffstat (limited to 'src/Xmobar/App/Compile.hs')
-rw-r--r--src/Xmobar/App/Compile.hs10
1 files changed, 5 insertions, 5 deletions
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)