module Web.Slack.Api
( TestReq(..)
, mkTestReq
, TestRsp(..)
)
where
import Data.Aeson.TH
import GHC.Generics (Generic)
import Web.FormUrlEncoded
import Web.Slack.Util
import Data.Text (Text)
data TestReq =
TestReq
{ testReqError :: Maybe Text
, testReqFoo :: Maybe Text
}
deriving (Eq, Generic, Show)
$(deriveJSON (jsonOpts "testReq") ''TestReq)
instance ToForm TestReq where
toForm =
genericToForm (formOpts "testReq")
mkTestReq :: TestReq
mkTestReq =
TestReq
{ testReqError = Nothing
, testReqFoo = Nothing
}
data TestRsp =
TestRsp
{ testRspArgs :: Maybe TestReq
}
deriving (Eq, Generic, Show)
$(deriveFromJSON (jsonOpts "testRsp") ''TestRsp)