added haddock for removePlayer
This commit is contained in:
parent
3a9592f958
commit
fd9e5545f5
1 changed files with 1 additions and 0 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue