From fd9e5545f5486b0e24cd94b7fb26bfaea5154206 Mon Sep 17 00:00:00 2001 From: Dennis Frieberg Date: Mon, 3 Jan 2022 21:25:44 +0100 Subject: [PATCH] added haddock for removePlayer --- tickLeiste/src/Data/TickLeiste.hs | 1 + 1 file changed, 1 insertion(+) 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