move ball on click without drag

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
+  void $ liftIO $ register clickholdah $ \_ -> do
     SDL.P vect <- SDL.getAbsoluteMouseLocation
     passfire $ fmap fromIntegral vect
-    else
-      return ()
   return clickholdah