{-# Language Safe #-}
{-# Language RankNTypes #-}
{-# Language GADTs #-}
module Bot.Extension where

import Bot.DSL

data Extension meta = Extension { act :: forall m. (meta ~ Meta m, MonadExtension m) => Request meta -> m (Maybe (Response meta))
                             , name   :: String }