nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

indent

Browse source
This commit is contained in:
nek0 2018-10-12 14:59:09 +02:00
parent dd7f1e1627
commit a58f415e73
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Menu/Connect.hs
View file

@ -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) rels@(V2 rx ry) <- liftIO $ fmap ((/ 2) . (+ 1)) <$> (relativizeMouseCoords pos)
when (arrowUp rels) adjustUpDown when (arrowUp rels) adjustUpDown
where where
adjustUpDown = liftIO $ logIO A.Debug "TODO: adjustUpDown" adjustUpDown = liftIO $ logIO A.Debug "TODO: adjustUpDown"
arrowUp (V2 rx ry) = arrowUp (V2 rx ry) =
rx > 310 / 1280 && rx < 410 / 1280 && ry > 190 / 720 && ry < 290 / 720 rx > 310 / 1280 && rx < 410 / 1280 && ry > 190 / 720 && ry < 290 / 720
handleClicks _ = return () handleClicks _ = return ()
updateMenu :: Double -> Affection UserData () updateMenu :: Double -> Affection UserData ()