Happstack.hs

{-# LANGUAGE NoMonomorphismRestriction#-}

module Hack.Frontend.Happstack where

import Hack.Frontend.MonadCGI (cgiToApp)
import Happstack.Server.FastCGI (serverPartToCGI)
import Hack (Application)
import Happstack.Server.SimpleHTTP (ToMessage, ServerPartT)

serverPartToApp :: (ToMessage b) => ServerPartT IO b -> Application
serverPartToApp = cgiToApp . serverPartToCGI