module Backend.FastCGI where

import Config
import qualified Network.Wai as Wai
import qualified Network.Wai.Handler.FastCGI as Fcgi
import Control.Concurrent.MVar

forkFastCGIBackend :: Wai.Application -> IO [MVar ()]
forkFastCGIBackend = fmap (: []) . forkBackend . Fcgi.run