justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Separate out concrete part of world

Browse Source
This commit is contained in:
justin
2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Base/You.hs
+1 -1
View File
@@ -5,7 +5,7 @@ import qualified IntMapHelp as IM
--import Control.Lens
you :: World -> Creature
you w = _creatures w IM.! _yourID w
you w = _creatures (_cWorld w) IM.! _yourID (_cWorld w)
yourItem :: World -> Maybe Item
yourItem w = _crInv (you w) IM.!? crSel (you w)