Format with ormolu.

1 files changed, 6 insertions, 6 deletions

diff --git a/src/Rahm/Desktop/Layout/ReinterpretMessage.hs b/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
index e3434b1..fc3c447 100644
--- a/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
+++ b/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
@@ -1,8 +1,8 @@
 module Rahm.Desktop.Layout.ReinterpretMessage where
 
-import XMonad (SomeMessage, X)
-import XMonad.Layout.LayoutModifier (LayoutModifier(..))
 import Data.Proxy (Proxy (..))
+import XMonad (SomeMessage, X)
+import XMonad.Layout.LayoutModifier (LayoutModifier (..))
 
 -- This is a type class that defines how to reinterpret a message. One can think
 -- of this as a kind of type-level function. It lets one associate a function
@@ -30,11 +30,11 @@ data ReinterpretMessage k a = ReinterpretMessage
   deriving (Show, Read)
 
 -- Instance for ReinterpretMessage as a Layout modifier.
-instance (DoReinterpret k) =>
-      LayoutModifier (ReinterpretMessage k) a where
-
+instance
+  (DoReinterpret k) =>
+  LayoutModifier (ReinterpretMessage k) a
+  where
   handleMessOrMaybeModifyIt self message = do
-
     -- Delegates to the reinterpretMessage function associated with the
     -- type-variable k.
     newMessage <- reinterpretMessage (ofProxy self) message