Commit before pushing more input events into update

src/Dodge/Default/World.hs

@@ -12,6 +12,7 @@ import System.Random
 defaultInput :: Input
 defaultInput = Input
         { _clickMousePos = V2 0 0
+        , _textInput = RejectTextInput
         , _keys = S.empty
         , _mouseButtons = mempty
         , _mousePos = V2 0 0
@@ -65,9 +66,10 @@ defaultCWCam =
 defaultCWorld :: CWorld
 defaultCWorld =
     CWorld
-        { _lWorld = defaultLWorld
+        { _camPos = defaultCWCam
+        , _lWorld = defaultLWorld
         , _cwGen = defaultCWGen
-        , _cwClock = 0
+        , _cClock = 0
         , _pastWorlds = []
         , _timeFlow = NormalTimeFlow
         }
@@ -75,8 +77,7 @@ defaultCWorld =
 defaultLWorld :: LWorld
 defaultLWorld =
     LWorld
-        { _camPos = defaultCWCam
-        , _magnets = IM.empty
+        { _magnets = IM.empty
         , _modifications = IM.empty
         , _creatures = IM.empty
         , _crZoning = mempty --Zoning IM.empty crZoneSize zoneOfCreature