Format with ormolu.

1 files changed, 6 insertions, 8 deletions

diff --git a/src/Rahm/Desktop/Layout/Redescribe.hs b/src/Rahm/Desktop/Layout/Redescribe.hs
index 7f955d8..f5e51b7 100644
--- a/src/Rahm/Desktop/Layout/Redescribe.hs
+++ b/src/Rahm/Desktop/Layout/Redescribe.hs
@@ -1,17 +1,14 @@
-
 -- Module to enable redescribing layouts. Unlike LayoutModifiers though, this
 -- class is aware of the underlying type as it may need to access some internals
 -- to generate the new description.
 module Rahm.Desktop.Layout.Redescribe where
 
-import XMonad
-
-import qualified Rahm.Desktop.StackSet as W
 import Data.Typeable (Typeable)
+import qualified Rahm.Desktop.StackSet as W
+import XMonad
 
 -- Type-class to modify the description of a layout.
 class Describer m l where
-
   -- Returns the new description from the given description modifier, the layout
   -- and the existing description.
   newDescription :: m -> l a -> String -> String
@@ -21,9 +18,10 @@ data Redescribe m l a = Redescribe m (l a)
   deriving (Show, Read)
 
 -- Delegates to the underlying Layout, except for the description
-instance (Typeable m, Show m, Describer m l, LayoutClass l a) =>
-    LayoutClass (Redescribe m l) a where
-
+instance
+  (Typeable m, Show m, Describer m l, LayoutClass l a) =>
+  LayoutClass (Redescribe m l) a
+  where
   runLayout (W.Workspace t (Redescribe m l) a) rect = do
     (rects, maybeNewLayout) <- runLayout (W.Workspace t l a) rect
     return (rects, fmap (Redescribe m) maybeNewLayout)