Prop reification/splitting

src/Dodge/WorldBool.hs

@@ -0,0 +1,12 @@
+module Dodge.WorldBool
+    where
+import Dodge.Data
+import Data.Maybe
+import Control.Lens
+
+doWdBl :: WdBl -> World -> Bool
+doWdBl wb w = case wb of
+    WdTrig i -> fromMaybe False $ w ^? triggers . ix i
+    WdBlDoorMoving i -> fromMaybe False $ do
+        dr <- w ^? doors . ix i
+        return (DoorHalfway == _drStatus dr)