Move towards introducing pipes, generalise blocks

2022-06-16 02:18:22 +01:00
parent f404f32241
commit a7201b8fb6
13 changed files with 154 additions and 65 deletions
@@ -14,4 +14,4 @@ yourInv :: World -> IM.IntMap Item
 yourInv w = _crInv (you w)

 yourInvSel :: World -> Int
-yourInvSel w = _crInvSel (you w)
+yourInvSel = _crInvSel . you