Nest fields in CWorld
This commit is contained in:
@@ -170,7 +170,7 @@ guardDisconnected tm w w' = case _tmStatus tm of
|
||||
TerminalReady -> w'
|
||||
|
||||
getDamageCoding :: World -> M.Map String [TerminalLine]
|
||||
getDamageCoding = decodedtmap . _sensorCoding . _genParams . _cWorld
|
||||
getDamageCoding = decodedtmap . _sensorCoding . _cwgParams . _cwGen . _cWorld
|
||||
|
||||
sensorInfoMap :: Terminal -> World -> M.Map String [TerminalLine]
|
||||
sensorInfoMap tm w =
|
||||
|
||||
Reference in New Issue
Block a user