Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
HsKu.Web
Documentation
Instances
FromJSON MMsg Source # | |
Generic MMsg Source # | |
Show MMsg Source # | |
Eq MMsg Source # | |
type Rep MMsg Source # | |
Defined in HsKu.Web type Rep MMsg = D1 ('MetaData "MMsg" "HsKu.Web" "hsku-0.0.1-inplace" 'False) (C1 ('MetaCons "MMsg" 'PrefixI 'True) (S1 ('MetaSel ('Just "text") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: (S1 ('MetaSel ('Just "user_name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Name) :*: S1 ('MetaSel ('Just "channel_name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Channel)))) |
Instances
ToJSON MPost Source # | |
Generic MPost Source # | |
Show MPost Source # | |
Eq MPost Source # | |
type Rep MPost Source # | |
Defined in HsKu.Web type Rep MPost = D1 ('MetaData "MPost" "HsKu.Web" "hsku-0.0.1-inplace" 'False) (C1 ('MetaCons "MPost" 'PrefixI 'True) (S1 ('MetaSel ('Just "chn") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Channel) :*: S1 ('MetaSel ('Just "msg") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))) |
type API = ("haiku" :> (QueryParam' '[Required] "input" Text :> Get '[JSON] HaikuResult)) :<|> ("mattermost" :> (ReqBody '[JSON] MMsg :> PostNoContent)) Source #
hskuWebService :: Config -> Languages -> Application Source #