[websockets] migrate to StmContainers.Set

parent 5bcb8731
Pipeline #6170 failed with stages
in 67 minutes and 50 seconds
...@@ -520,6 +520,7 @@ library ...@@ -520,6 +520,7 @@ library
, cryptohash ^>= 0.11.9 , cryptohash ^>= 0.11.9
, data-time-segment ^>= 0.1.0.0 , data-time-segment ^>= 0.1.0.0
, deepseq ^>= 1.4.4.0 , deepseq ^>= 1.4.4.0
, deferred-folds >= 0.9.18 && < 0.10
, directory ^>= 1.3.6.0 , directory ^>= 1.3.6.0
, discrimination >= 0.5 , discrimination >= 0.5
, ekg-core ^>= 0.1.1.7 , ekg-core ^>= 0.1.1.7
......
...@@ -63,7 +63,7 @@ class ResourceId a where ...@@ -63,7 +63,7 @@ class ResourceId a where
-- whereas this one tracks only users. -- whereas this one tracks only users.
newtype UserId = UnsafeMkUserId { _UserId :: Int } newtype UserId = UnsafeMkUserId { _UserId :: Int }
deriving stock (Show, Eq, Ord, Generic) deriving stock (Show, Eq, Ord, Generic)
deriving newtype (ToSchema, ToJSON, FromJSON, FromField, ToField) deriving newtype (ToSchema, ToJSON, FromJSON, FromField, ToField, Hashable)
-- The 'UserId' is isomprohic to an 'Int'. -- The 'UserId' is isomprohic to an 'Int'.
instance GQLType UserId where instance GQLType UserId where
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment