connection states in haskell protocol definition

This commit is contained in:
Evgeny Poberezkin
2020-05-09 12:38:07 +01:00
parent b16b5c5948
commit 7ee44a6d41
9 changed files with 150 additions and 85 deletions
@@ -1,5 +1,4 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Simplex.Messaging.ServerAPI
( ServerAPI
@@ -78,8 +77,9 @@ serverApiExtra =
"Send message"
[]
info p title comments =
extraInfo p $ defAction & notes <>~ [ DocNote title comments ]
where
info p title comments =
extraInfo p $ defAction & notes <>~ [ DocNote title comments ]
instance ToCapture (Capture "connectionId" Text) where
toCapture _ =