From 6a4f1abe8c8d2c7befced9d8c53fd3923d634228 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 30 Sep 2019 03:38:20 +0200 Subject: [PATCH] move ball on click without drag --- src/Main.hs | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 8ac3cfc..369742f 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -217,7 +217,7 @@ networkDescription (listenerah, _) rotvar transvar = mdo emouse <- fromAddHandler =<< registerMouseEvent passfire mouseah epass <- fromAddHandler =<< registerPassEvent passah eClickHold <- fromAddHandler =<< registerClickHoldEvent passfire clickholdah - clickHoldBehaviour <- RBC.stepper True eClickHold + clickHoldBehaviour <- RBC.stepper False eClickHold mouseMoveBehaviour <- RBC.stepper (V2 1 1) epass let moveReaction = fmap (\x -> do let input = (\(V2 xx _) -> @@ -270,7 +270,6 @@ registerListenerEvent listenerah mousefire clickholdfire = do if null filteredClickEvents then return () - -- clickholdfire False else clickholdfire (any (\x -> SDL.Pressed == SDL.mouseButtonEventMotion @@ -309,10 +308,7 @@ registerClickHoldEvent -> AddHandler Bool -> m (AddHandler Bool) registerClickHoldEvent passfire clickholdah = do - void $ liftIO $ register clickholdah $ \x -> if x - then do - SDL.P vect <- SDL.getAbsoluteMouseLocation - passfire $ fmap fromIntegral vect - else - return () + void $ liftIO $ register clickholdah $ \_ -> do + SDL.P vect <- SDL.getAbsoluteMouseLocation + passfire $ fmap fromIntegral vect return clickholdah