mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-29 11:11:52 -07:00
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:
@@ -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
|
||||
|
@@ -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"
|
||||
|
||||
|
Reference in New Issue
Block a user