Count mouse button press time up from 0

2023-04-27 11:39:42 +01:00
parent 9972e0fdea
commit 5b1212e4f6
6 changed files with 10 additions and 10 deletions
@@ -47,7 +47,7 @@ updateFloatingCamera cfig w = w
 translateFloatingCamera :: Input -> Camera -> Camera
 translateFloatingCamera theinput cam = fromMaybe cam $ do
    presstime <- theinput ^. mouseButtons . at ButtonLeft
-    guard $ presstime > 1
+    guard $ presstime > 0
    hpos <- theinput ^? heldPos . ix ButtonLeft
    let thetran = 
            screenToWorldPos cam hpos