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 ()