Work on debugging

src/Dodge/Default/Creature.hs

@@ -7,6 +7,7 @@ import Dodge.Data.FloatFunction
 import Geometry.Data
 import qualified IntMapHelp as IM
 import Picture
+--import MaybeHelp
 
 defaultCreature :: Creature
 defaultCreature =

src/Dodge/Default/World.hs

@@ -14,6 +14,7 @@ defaultInput :: Input
 defaultInput =
     Input
         { _clickPos = mempty
+        , _clickWorldPos = mempty
         , _heldPos = mempty
         , _textInput = mempty
         , _pressedKeys = mempty