Work towards making world read/showable

2022-07-22 11:16:12 +01:00
parent 6b69fc1684
commit 7fdb70dd1c
22 changed files with 223 additions and 218 deletions
@@ -20,8 +20,8 @@ import Control.Lens

 import qualified Streaming.Prelude as S

-colCrsWalls :: Configuration -> World -> World
-colCrsWalls cfig w = w & creatures %~ fmap (noclipCheck cfig w)
+colCrsWalls :: Universe -> Universe
+colCrsWalls uv = uv & uvWorld . creatures %~ fmap (noclipCheck (_uvConfig uv) (_uvWorld uv))

 noclipCheck :: Configuration -> World -> Creature -> Creature
 noclipCheck cfig w c