diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 6b054d6c..959c789c 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -81,7 +81,8 @@ main =
 
 -- Utility functions
 
-(<..>) a b = (fmap . fmap) a b
+(<..>) :: Functor f => (a -> b) -> f (f a) -> f (f b)
+(<..>) = fmap . fmap
 
 forkM :: Monad m => (i -> m a) -> (i -> m b) -> i -> m (a, b)
 forkM a b input = do
@@ -130,7 +131,9 @@ mapP' f f' = map (f A.&&& f')
 
 minimizedWindows = withMinimized return
 
-visibleWindows = (\\) <$> (withWorkspaceR $ return . W.integrate' . W.stack) <*> minimizedWindows
+visibleWindows =
+  (\\) <$> withWorkspaceR (return . W.integrate' . W.stack)
+         <*> minimizedWindows
 
 -- Selectors