Network/HTTP/Lucu/Resource.hs

   1 module Network.HTTP.Lucu.Resource
   2     ( Resource
   3     )
   4     where
   5
   6 import           Control.Monad.State
   7 import qualified Data.ByteString.Lazy.Char8 as B
   8 import           Data.ByteString.Lazy.Char8 (ByteString)
   9
  10 data ResState = ResState -- FIXME
  11
  12 type ResourceT m a = StateT ResState m a
  13
  14 type Resource a = ResourceT IO a