diff --git a/tickLeiste/src/Data/TickLeiste.hs b/tickLeiste/src/Data/TickLeiste.hs index ecfe4ea..1d7316a 100644 --- a/tickLeiste/src/Data/TickLeiste.hs +++ b/tickLeiste/src/Data/TickLeiste.hs @@ -109,6 +109,7 @@ setPlayerTick p t tl@(TickLeiste l pl) = TickLeiste (insertPlayerToLeiste p t l' return $ removePlayerFromLeiste p ot l -- TODO +-- | removes a 'Player' from the 'TickLeiste' removePlayer :: Player -> TickLeiste -> TickLeiste removePlayer p tl@(TickLeiste {leiste = l, player = pm}) = TickLeiste l' pm' where