diff --git a/definitions/package.yaml b/definitions/package.yaml index eb06bbf05a..45836f8e49 100644 --- a/definitions/package.yaml +++ b/definitions/package.yaml @@ -50,6 +50,7 @@ executables: api-docs: source-dirs: src main: Main.hs + ghc-options: -threaded tests: simplex-definitions-doctests: diff --git a/definitions/src/Simplex/Messaging/Protocol.hs b/definitions/src/Simplex/Messaging/Protocol.hs index b67cabe8ff..727219f07f 100644 --- a/definitions/src/Simplex/Messaging/Protocol.hs +++ b/definitions/src/Simplex/Messaging/Protocol.hs @@ -45,7 +45,6 @@ $(singletons [d| | Confirmed -- (recipient) confirmed by sender with the broker | Secured -- (all) secured with the broker | Disabled -- (broker, recipient) disabled with the broker by recipient - | Drained -- (broker, recipient) drained (no messages) deriving (Show, ShowSing, Eq) data ConnSubscription = Subscribed | Idle @@ -59,7 +58,6 @@ $(predicate [d| BrkNew :: BrokerCS New BrkSecured :: BrokerCS Secured BrkDisabled :: BrokerCS Disabled - BrkDrained :: BrokerCS Drained BrkNone :: BrokerCS None -- sender connection states @@ -89,7 +87,6 @@ instance Prf1 SenderCS s => Prf HasState Sender s data EstablishedState (s :: ConnectionState) :: Type where ESecured :: EstablishedState Secured EDisabled :: EstablishedState Disabled - EDrained :: EstablishedState Drained -- connection type stub for all participants, TODO move from idris