9 lines
277 B
Haskell
9 lines
277 B
Haskell
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
|