Cabal; non-Nix support

2025-12-13 19:22:42 +01:00
parent 73985e298a
commit e9b4e2d34a
8 changed files with 143 additions and 119 deletions
--- a/src/Game/Internal.hs
+++ b/src/Game/Internal.hs
@@ -208,7 +208,7 @@ applyToTuples f (x, y) (a, b) = (f x a, f y b)
 updateCursorPos :: Double -> Double -> Model ->  Model
 updateCursorPos x y model =
  let
-    pyth = (((fst model.cursorPos) - x) ** 2 + ((snd model.cursorPos - y)) ** 2) ** 0.5
+    pyth = (((fst model.cursorPos) - x) ** 2 + ((snd model.cursorPos) - y) ** 2) ** 0.5
  in
  if pyth < 16 then
    model