added haddock for removePlayer

This commit is contained in:
Dennis Frieberg 2022-01-03 21:25:44 +01:00
parent 3a9592f958
commit fd9e5545f5

View file

@ -109,6 +109,7 @@ setPlayerTick p t tl@(TickLeiste l pl) = TickLeiste (insertPlayerToLeiste p t l'
return $ removePlayerFromLeiste p ot l return $ removePlayerFromLeiste p ot l
-- TODO -- TODO
-- | removes a 'Player' from the 'TickLeiste'
removePlayer :: Player -> TickLeiste -> TickLeiste removePlayer :: Player -> TickLeiste -> TickLeiste
removePlayer p tl@(TickLeiste {leiste = l, player = pm}) = TickLeiste l' pm' removePlayer p tl@(TickLeiste {leiste = l, player = pm}) = TickLeiste l' pm'
where where