1 files changed, 13 insertions, 11 deletions
diff --git a/src/XMonad/Actions/PerConditionKeys.hs b/src/XMonad/Actions/PerConditionKeys.hs
index b84b942..09372cd 100644
--- a/src/XMonad/Actions/PerConditionKeys.hs
+++ b/src/XMonad/Actions/PerConditionKeys.hs
@@ -8,25 +8,27 @@
 --
 
 module XMonad.Actions.PerConditionKeys
-    ( XCond(..)
-    , chooseAction
-    , bindOn
-    ) where
+  ( XCond(..)
+  , chooseAction
+  , bindOn
+  ) where
 
 import           Data.List
 import           XMonad
-import qualified XMonad.StackSet as S
+import qualified XMonad.StackSet               as S
 
 data XCond = WS | LD
 
 chooseAction :: XCond -> (String -> X ()) -> X ()
 chooseAction WS f = withWindowSet (f . S.currentTag)
-chooseAction LD f = withWindowSet (f . description . S.layout . S.workspace . S.current)
+chooseAction LD f =
+  withWindowSet (f . description . S.layout . S.workspace . S.current)
 
 bindOn :: XCond -> [(String, X ())] -> X ()
 bindOn xc bindings = chooseAction xc chooser
-    where chooser x = case find ((x ==) . fst) bindings of
-                           Just (_, action) -> action
-                           Nothing          -> case find (("" ==) . fst) bindings of
-                                                    Just (_, action) -> action
-                                                    Nothing          -> return ()
+ where
+  chooser x = case find ((x ==) . fst) bindings of
+    Just (_, action) -> action
+    Nothing          -> case find (("" ==) . fst) bindings of
+      Just (_, action) -> action
+      Nothing          -> return ()