import Control.Concurrent.STM
import Control.Exception
import Control.Monad hiding (mapM_)
+import Control.Monad.Fix
import Control.Monad.IO.Class
import Control.Monad.Reader (ReaderT, runReaderT, ask)
import Control.Monad.Unicode
= Rsrc {
unRsrc ∷ ReaderT NormalInteraction IO a
}
- deriving (Applicative, Functor, Monad, MonadIO)
+ deriving (Applicative, Functor, Monad, MonadFix, MonadIO)
runRsrc ∷ Rsrc a → NormalInteraction → IO a
runRsrc = runReaderT ∘ unRsrc
-- main :: 'IO' ()
-- main = let tree :: 'Network.HTTP.Lucu.ResourceTree'
-- tree = 'fromList' [ (["foo"], 'Network.HTTP.Lucu.greedy' resFoo) ]
--- in 'Network.HTTP.Lucu.runHttpd' 'defaultConfig' $ 'Network.HTTP.Lucu.resourceMap' tree
+-- in 'Network.withSocketsDo' '.' 'Network.HTTP.Lucu.runHttpd' 'defaultConfig' $ 'Network.HTTP.Lucu.resourceMap' tree
--
-- resFoo :: 'Resource'
-- resFoo = 'singleton'