Permalink
Browse files

hlinting

  • Loading branch information...
jaor committed Jun 24, 2018
1 parent 9c5f9b2 commit 741b803b943430a262ec36658b13830733e17b48
Showing with 7 additions and 7 deletions.
  1. +1 −1 .hlint.yaml
  2. +1 −1 src/Plugins/BufferedPipeReader.hs
  3. +3 −3 src/Plugins/EWMH.hs
  4. +2 −2 src/Xmobar.hs
View
@@ -12,7 +12,7 @@
- ignore: {name: "Use <$>"}
- ignore: {name: "Use uncurry"}
- ignore: {name: "Reduce duplication"}
- ignore: {name: "Use sortOn"}
# Specify additional command line arguments
#
@@ -84,4 +84,4 @@ instance Exec BufferedPipeReader where
threadDelay ( to * 100 * 1000 )
readTVarIO tb >>= \b -> when b $ do
when tg $ putMVar signal $ Hide 0
atomically (readTVar ts) >>= maybe (return ()) cb
readTVarIO ts >>= maybe (return ()) cb
View
@@ -1,6 +1,6 @@
{-# OPTIONS_GHC -w #-}
{-# LANGUAGE CPP, NamedFieldPuns, GeneralizedNewtypeDeriving, FlexibleContexts #-}
{-# LANGUAGE CPP, NamedFieldPuns, GeneralizedNewtypeDeriving #-}
{-# LANGUAGE TupleSections, FlexibleContexts #-}
-----------------------------------------------------------------------------
-- |
-- Module : Plugins.EWMH
@@ -224,7 +224,7 @@ updateClientList _ = do
case mwp of
Just xs -> do
cl <- gets clients
let cl' = Map.fromList $ map (flip (,) initialClient . fromIntegral) xs
let cl' = Map.fromList $ map ((, initialClient) . fromIntegral) xs
dels = Map.difference cl cl'
new = Map.difference cl' cl
modify (\s -> s { clients = Map.union (Map.intersection cl cl') cl'})
View
@@ -2,7 +2,7 @@
-----------------------------------------------------------------------------
-- |
-- Module : Xmobar
-- Copyright : (c) 2011, 2012, 2013, 2014, 2015, 2017 Jose Antonio Ortega Ruiz
-- Copyright : (c) 2011, 2012, 2013, 2014, 2015, 2017, 2018 Jose Antonio Ortega Ruiz
-- (c) 2007 Andrea Rossato
-- License : BSD-style (see LICENSE)
--
@@ -245,7 +245,7 @@ startCommand sig (com,s,ss)
updateString :: Config -> TVar [String]
-> IO [[(Widget, String, Int, Maybe [Action])]]
updateString conf v = do
s <- atomically $ readTVar v
s <- readTVarIO v
let l:c:r:_ = s ++ repeat ""
io $ mapM (parseString conf) [l, c, r]

0 comments on commit 741b803

Please sign in to comment.