Commit before moving button press events from events into your control

2022-06-29 12:12:45 +01:00
parent 5501d6f9b5
commit 4b8155ae16
8 changed files with 55 additions and 28 deletions
@@ -102,7 +102,7 @@ defaultWorld = World
    , _maybeWorld = Nothing'
    , _rewindWorlds = []
    , _timeFlow = NormalTimeFlow
-    , _doubleMouseHammer = HammerUp
+    , _hammers = defaultWorldHammers
    , _backspaceTimer = 0
    , _genParams = GenParams M.empty
    , _genPlacements = IM.empty
@@ -113,6 +113,8 @@ defaultWorld = World
    , _boundDist = (100,-100,100,-100)
    , _wSelect      = (0,0)
    }
+defaultWorldHammers :: M.Map WorldHammer HammerPosition
+defaultWorldHammers = M.fromSet (const HammerUp) $ S.fromList [minBound.. maxBound]
 youLight :: TempLightSource
 youLight = TLS 
    { _tlsParam = LSParam