diff --git a/src/Data/TickLeiste.hs b/src/Data/TickLeiste.hs index 020b8f4..385c39f 100644 --- a/src/Data/TickLeiste.hs +++ b/src/Data/TickLeiste.hs @@ -116,11 +116,10 @@ removePlayer = error "removePlayer not yet implemented (Franzi?)" toList :: TickLeiste -> [(Tick, [Player])] toList (TickLeiste l _) = M.toAscList l --- | convert from list to TickLeiste, if a player is at multiple 'Tick' this returns --- 'Nothing' +-- | convert from list to TickLeiste -- TODO -fromList :: [(Tick, [Player])] -> Maybe TickLeiste +fromList :: [(Tick, [Player])] -> TickLeiste fromList = error "not implemented" -- | convert from 'TickLeiste' to a map from 'Tick' to list of 'Player'