module Web.DDP.Deadpan.Callbacks where
import Web.DDP.Deadpan.DSL
import Control.Lens
pingCallback :: Callback
pingCallback ejv = do
let mpid = ejv ^? _EJObject "id"
case mpid of Just pid -> sendMessage "pong" $ ejobject [("id", pid)]
Nothing -> sendMessage "pong" $ ejobject []
clientDataSub :: Text -> Text -> Maybe [ EJsonValue ] -> DeadpanApp ()
clientDataSub _subid _name _params = undefined
subscribe :: Text -> Text -> Maybe [ EJsonValue ] -> DeadpanApp ()
subscribe = clientDataSub
clientDataUnsub :: Text -> DeadpanApp ()
clientDataUnsub _subid = undefined
unsubscribe :: Text -> DeadpanApp ()
unsubscribe = clientDataUnsub
clientRPCMethod :: Text -> Maybe [EJsonValue] -> Text -> Maybe EJsonValue -> DeadpanApp ()
clientRPCMethod _method _params _rpcid _seed = undefined
serverDataNosub :: Callback
serverDataNosub = undefined
serverDataAdded :: Callback
serverDataAdded = undefined
serverDataChanged :: Callback
serverDataChanged = undefined
serverDataRemoved :: Callback
serverDataRemoved = undefined
serverDataReady :: Callback
serverDataReady = undefined
serverDataAddedBefore :: Callback
serverDataAddedBefore = undefined
serverDataMovedBefore :: Callback
serverDataMovedBefore = undefined
serverRPCResult :: Callback
serverRPCResult = undefined
serverRPCUpdated :: Callback
serverRPCUpdated = undefined
serverError :: Callback
serverError = undefined