Apply hlint hints

All hints are applied in one single commit, as a commit per hint would
result in 80+ separate commits—tihs is really just too much noise.

Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
slotThe
2021-06-06 16:11:17 +02:00
parent b96899afb6
commit bd5b969d9b
222 changed files with 1119 additions and 1193 deletions

View File

@@ -33,14 +33,13 @@ parse input addr args = case args of
repl :: String -> IO ()
repl addr = do e <- isEOF
case e of
True -> return ()
False -> do l <- getLine
sendCommand addr l
repl addr
unless e $ do
l <- getLine
sendCommand addr l
repl addr
sendAll :: String -> [String] -> IO ()
sendAll addr ss = foldr (\a b -> sendCommand addr a >> b) (return ()) ss
sendAll addr = foldr (\a b -> sendCommand addr a >> b) (return ())
sendCommand :: String -> String -> IO ()
sendCommand addr s = do

View File

@@ -1,5 +1,7 @@
#!/usr/bin/env runhaskell
{-# LANGUAGE LambdaCase #-}
-- Copyright Spencer Janssen <spencerjanssen@gmail.com>
-- BSD3 (see LICENSE)
--
@@ -29,7 +31,7 @@ main :: IO ()
main = do
hSetBuffering stdout LineBuffering
atom <- flip fmap getArgs $ \args -> case args of
atom <- flip fmap getArgs $ \case
[a] -> a
_ -> "_XMONAD_LOG"