From a58f415e73f9bbdee35c323a0659d6d4176452d1 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Fri, 12 Oct 2018 14:59:09 +0200
Subject: [PATCH] indent

---
 src/Menu/Connect.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Menu/Connect.hs b/src/Menu/Connect.hs
index 8d5a4d5..280ff06 100644
--- a/src/Menu/Connect.hs
+++ b/src/Menu/Connect.hs
@@ -93,9 +93,9 @@ handleClicks (MsgMouseButton _ _ SDL.Pressed _ SDL.ButtonLeft 1 pos@(V2 px py))
   rels@(V2 rx ry) <- liftIO $ fmap ((/ 2) . (+ 1)) <$> (relativizeMouseCoords pos)
   when (arrowUp rels) adjustUpDown
   where
-  adjustUpDown = liftIO $ logIO A.Debug "TODO: adjustUpDown"
-  arrowUp (V2 rx ry) =
-    rx > 310 / 1280 && rx < 410 / 1280 && ry > 190 / 720 && ry < 290 / 720
+    adjustUpDown = liftIO $ logIO A.Debug "TODO: adjustUpDown"
+    arrowUp (V2 rx ry) =
+      rx > 310 / 1280 && rx < 410 / 1280 && ry > 190 / 720 && ry < 290 / 720
 handleClicks _ = return ()
 
 updateMenu :: Double -> Affection UserData ()