Determine thunk leak when marking seen walls

2021-10-29 17:25:12 +01:00
parent 686a9fc3ee
commit 50d0f18ab7
6 changed files with 26 additions and 32 deletions
@@ -560,8 +560,10 @@ data Wall = Wall
    , _wlPathable :: Bool
    , _wlDraw :: Bool
    , _wlRotateTo :: Bool
-    , _wlBlockID  :: Maybe Int
+    , _wlBlockID  :: Maybe' Int
    }
+-- | Strict maybe
+data Maybe' a = Just' a | Nothing'
 data ForceField = FF 
    { _ffLine :: [Point2] , _ffID :: Int 
    , _ffColor :: Color