From 0781c6a55ae721df4094217c415eac31358d63e5 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Wed, 20 Sep 2017 16:28:26 -0700
Subject: [PATCH] [XMonad] Use sequenceT to define forkM

---
 dotfiles/config/xmonad/imalison-xmonad.cabal | 37 ++++++++++----------
 dotfiles/config/xmonad/xmonad.hs             | 13 +++----
 2 files changed, 24 insertions(+), 26 deletions(-)

diff --git a/dotfiles/config/xmonad/imalison-xmonad.cabal b/dotfiles/config/xmonad/imalison-xmonad.cabal
index 43b08e75..8d83aaba 100644
--- a/dotfiles/config/xmonad/imalison-xmonad.cabal
+++ b/dotfiles/config/xmonad/imalison-xmonad.cabal
@@ -13,23 +13,24 @@ cabal-version:       >=1.10
 
 executable imalison-xmonad
   main-is:             xmonad.hs
-  build-depends:       X11>=1.8,
-                       aeson>=0.11.2.1,
-                       base >=4.9 && <4.10,
-                       bytestring>=0.10.8.1,
-                       containers>=0.5.7.1,
-                       directory>=1.2.6.2,
-                       filepath>=1.4.1.0,
-                       gtk-traymanager>=0.1.6,
-                       hostname>=1.0,
-                       mtl>=2.2.1,
-                       multimap>=1.2.1,
-                       process>=1.4.3.0,
-                       split,
-                       taffybar>=0.4.6,
-                       transformers>=0.5.2.0,
-                       utf8-string,
-                       xmonad-contrib>=0.13,
-                       xmonad>=0.13
+  build-depends:       aeson>=0.11.2.1
+                     , X11>=1.8
+                     , base >=4.9 && <4.10
+                     , bytestring>=0.10.8.1
+                     , containers>=0.5.7.1
+                     , directory>=1.2.6.2
+                     , filepath>=1.4.1.0
+                     , gtk-traymanager>=0.1.6
+                     , hostname>=1.0
+                     , mtl>=2.2.1
+                     , multimap>=1.2.1
+                     , process>=1.4.3.0
+                     , split
+                     , taffybar>=0.4.6
+                     , transformers>=0.5.2.0
+                     , tuple >= 0.3.0.2
+                     , utf8-string
+                     , xmonad-contrib>=0.13
+                     , xmonad>=0.13
   hs-source-dirs:      .
   default-language:    Haskell2010
diff --git a/dotfiles/config/xmonad/xmonad.hs b/dotfiles/config/xmonad/xmonad.hs
index e955cb4a..06773aea 100644
--- a/dotfiles/config/xmonad/xmonad.hs
+++ b/dotfiles/config/xmonad/xmonad.hs
@@ -3,6 +3,7 @@
              FlexibleInstances, FlexibleContexts, ScopedTypeVariables #-}
 module Main where
 
+import qualified Codec.Binary.UTF8.String as UTF8String (encode)
 import qualified Control.Arrow as A
 import           Control.Monad
 import           Control.Monad.Trans
@@ -10,13 +11,13 @@ import           Control.Monad.Trans.Maybe
 import           Data.Aeson
 import qualified Data.ByteString.Lazy as B
 import           Data.List
-import qualified Codec.Binary.UTF8.String as UTF8String (encode)
 import           Data.List.Split
 import qualified Data.Map as M
 import           Data.Maybe
 import           Data.Monoid
 import qualified Data.MultiMap as MM
 import           Data.Proxy
+import           Data.Tuple.Sequence (sequenceT)
 import           Data.Typeable
 import           Graphics.X11.ExtraTypes.XF86
 import           Network.HostName
@@ -67,7 +68,6 @@ import qualified XMonad.Util.Dmenu as DM
 import qualified XMonad.Util.ExtensibleState as XS
 import           XMonad.Util.Minimize
 import           XMonad.Util.NamedScratchpad
-    (NamedScratchpad(NS), nonFloating, namedScratchpadAction)
 import           XMonad.Util.NamedWindows (getName)
 import           XMonad.Util.Run
 import           XMonad.Util.WorkspaceCompare
@@ -117,10 +117,7 @@ xRunCommand cmd = void $ io $ readCreateProcess (shell cmd) ""
 (<..>) = fmap . fmap
 
 forkM :: Monad m => (i -> m a) -> (i -> m b) -> i -> m (a, b)
-forkM a b input = do
-  resA <- a input
-  resB <- b input
-  return (resA, resB)
+forkM a b = sequenceT . (a A.&&& b)
 
 tee :: Monad m => (i -> m a) -> (i -> m b) -> i -> m a
 tee = (fmap . fmap . fmap) (fmap fst) forkM
@@ -469,7 +466,7 @@ setWorkspaceNames = withWindowSet $ \s -> withDisplay $ \dpy -> do
   sort' <- getSortByIndex
   let ws = sort' $ W.workspaces s
       tagNames = map W.tag ws
-      getName tag = (maybe "" (" " ++)) <$> getWorkspaceName tag
+      getName tag = maybe "" (" " ++) <$> getWorkspaceName tag
       getFullName :: String -> X String
       getFullName tag = printf "%s%s" tag <$> getName tag
   names <- mapM getFullName tagNames
@@ -727,7 +724,7 @@ myKill =
 
 -- Gather windows of same class
 
-allWindows = concat <$> (mapWorkspaces $ return . W.integrate' . W.stack)
+allWindows = concat <$> mapWorkspaces (return . W.integrate' . W.stack)
 
 windowsMatchingClass klass =
   allWindows >>= filterM (((== klass) <$>) . getClass)