Cabal; non-Nix support

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

src/Main.hs

@@ -7,7 +7,7 @@
  - Maintainer  : Matrix @Andromeda:tchncs.de
  - Stability   : Experimental
  -}
-module Game (main) where
+module Main (main) where
 
 import Game.Internal.Types
 import Game.Internal