diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 93284f0b..64c0d13e 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -77,6 +77,8 @@ main =
 
 -- Utility functions
 
+(<..>) a b = (fmap . fmap) a b
+
 forkM :: Monad m => (i -> m a) -> (i -> m b) -> i -> m (a, b)
 forkM a b input = do
   resA <- a input