fix: mulithreading

This commit is contained in:
qvalentin 2025-01-25 18:21:48 +01:00
parent 6d4c0f73e5
commit 491dc6c569
5 changed files with 25 additions and 10 deletions

View file

@ -1,6 +1,6 @@
{-# LANGUAGE DeriveGeneric #-}
module Types.RoomData (RoomData, RoomsData, sameName, roomNotEmpty, prettyPrintOpenedRoom) where
module Types.RoomData (RoomData, RoomsStateDiff, RoomsData, sameName, roomNotEmpty, prettyPrintOpenedRoom) where
import ClassyPrelude
import Data.Aeson (FromJSON, ToJSON)
@ -26,6 +26,8 @@ type RoomName = Text
type RoomsData = [RoomData]
type RoomsStateDiff = (RoomsData, RoomsData)
instance ToJSON RoomData
instance FromJSON RoomData