Splittertech/tickLeisteServer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

moved Aeson instances to tickLeiste

Browse source
This commit is contained in:
Dennis Frieberg 2020-09-21 23:15:24 +02:00
parent 58a2662d2a
commit ba8c620abe
3 changed files with 2 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

1
app/WebSocketApp.hs
View file

@ -130,6 +130,7 @@ tickLeisteToPlayerList :: M.Map U.UUID T.Text -> TL.TickLeiste -> [(TL.Tick, [(U
tickLeisteToPlayerList pl = tickLeisteListToPlayerList pl . TL.toList
-- uff good luck reading that
-- maybe it would be better to collect the UUID to Text map in a list and call M.fromList in the end?
playerNameListToTickLeisteList :: [(TL.Tick, [T.Text])] -> IO ([(TL.Tick, [U.UUID])], M.Map U.UUID T.Text)
playerNameListToTickLeisteList =
foldM