apis-0.0.1: src/Control/Monad/Trans/API.hs

module Control.Monad.Trans.API
       ( module Control.Monad.State.Strict
       , APIT
       , runAPIT ) where

import Control.Monad.State.Strict

type APIT s m = StateT s m

runAPIT :: s -> APIT s m a -> m (a, s)
runAPIT = flip runStateT