demobot/src/Bot/DSL/State.hs

module Bot.DSL.State where

class Monad m => MonadData m where
  getData :: Read a => String -> m (Maybe a)
  putData :: Show a => String -> a -> m ()