12 lines
278 B
Haskell
12 lines
278 B
Haskell
module Backend.CGI(forkCGIBackend) where
|
|
|
|
import Config
|
|
import qualified Network.Wai as Wai
|
|
import qualified Network.Wai.Handler.CGI as CGI
|
|
import Control.Concurrent.MVar
|
|
|
|
forkCGIBackend :: Wai.Application -> IO [MVar ()]
|
|
forkCGIBackend = fmap (: []) . forkBackend . CGI.run
|
|
|
|
|
|
|