From c4ce35438264c60315e2a5f2fcc3e9452b95de97 Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Fri, 26 Mar 2021 11:51:22 +0100
Subject: [PATCH] Tweak cursor

---
 src/Dodge/Rendering.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Dodge/Rendering.hs b/src/Dodge/Rendering.hs
index fba238caf..6939df3eb 100644
--- a/src/Dodge/Rendering.hs
+++ b/src/Dodge/Rendering.hs
@@ -52,8 +52,7 @@ customMouseCursor w =
     setDepth (-1)
     . scale (2 /_windowX w) (2/ _windowY w) 
     . uncurry translate (_mousePos w)
-    $ circleSolid 5
-
+    $ pictures [ line [(-5,0),(5,0)] , line [(0,-5),(0,5)] ]
 
 testPic :: World -> [Picture]
 testPic w = [blank]