mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-08-31 11:23:48 -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
|
||||
|
Reference in New Issue
Block a user