[refactor] Run ormolu on all the source.

1 files changed, 9 insertions, 10 deletions

diff --git a/plug/src/Montis/Core/Keys.hs b/plug/src/Montis/Core/Keys.hs
index b3faadd..c9291e4 100644
--- a/plug/src/Montis/Core/Keys.hs
+++ b/plug/src/Montis/Core/Keys.hs
@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -Wno-missing-export-lists #-}
+
 module Montis.Core.Keys where
 
 import Control.Monad (forever, void, when)
@@ -9,9 +10,9 @@ import Control.Monad.Trans.Cont
 import Data.Bits
 import Data.Word
 import Montis.Core.ButtonEvent (ButtonEvent)
+import qualified Montis.Core.ButtonEvent as ButtonEvent
 import Montis.Core.KeyEvent
 import qualified Montis.Core.KeyEvent as KeyEvent
-import qualified Montis.Core.ButtonEvent as ButtonEvent
 import Montis.Core.W
 import Montis.Foreign.WlRoots (wlrSeatKeyboardNotifyKey, wlrSeatSetKeyboard)
 
@@ -131,11 +132,11 @@ nextButtonOrKeyEvent :: KeysM (Either ButtonEvent KeyEvent)
 nextButtonOrKeyEvent = do
   st <- KeysM get
   KeysM $
-    shiftT $ \rest -> 
-      lift $ lift $ do
-        putButtonHandler (\ev -> evalStateT (rest (Left ev)) st)
-        handleContinuation st (\ev -> evalStateT (rest (Right ev)) st)
-
+    shiftT $ \rest ->
+      lift $
+        lift $ do
+          putButtonHandler (\ev -> evalStateT (rest (Left ev)) st)
+          handleContinuation st (\ev -> evalStateT (rest (Right ev)) st)
   where
     putButtonHandler h = do
       modify $ \st -> st {currentHooks = (currentHooks st) {buttonHook = h}}
@@ -148,10 +149,8 @@ nextButtonOrKeyPress = do
     Left bev -> forwardButtonEvent bev >> nextButtonOrKeyPress
     Right kev | KeyEvent.state kev == KeyEvent.KeyPressed -> return ev
     Right kev -> forwardEvent kev >> nextButtonOrKeyPress
-
- where
-   forwardButtonEvent _ = return ()
-  
+  where
+    forwardButtonEvent _ = return ()
 
 -- | Returns the next KeyPressed event. This is likely what 90% of use cases
 -- want rather than nextKeyEvent.