From 2611bdd254b9f43cb36206b747084997f00fbf39 Mon Sep 17 00:00:00 2001
From: Dennis Frieberg <nerfingen@yahoo.de>
Date: Tue, 30 Mar 2021 14:23:58 +0200
Subject: [PATCH] added CGI backend (hopefully)

---
 app/Backend/Backend.hs |  6 ++++++
 app/Backend/CGI.hs     | 10 +++++++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/app/Backend/Backend.hs b/app/Backend/Backend.hs
index 47a611a..6ad5202 100644
--- a/app/Backend/Backend.hs
+++ b/app/Backend/Backend.hs
@@ -12,6 +12,9 @@ import qualified Backend.Https as HTTPS
 #ifdef FASTCGI_SUPPORT
 import qualified Backend.FastCGI as FASTCGI
 #endif
+#ifdef CGI_SUPPORT
+import qualified Backend.CGI as CGI
+#endif
 -- maybe we want a String instead of T.Text depends on
 -- the argument parser
 
@@ -40,5 +43,8 @@ backends =
 #endif
 #ifdef FASTCGI_SUPPORT
   BackendWithoutConfig FASTCGI.forkFastCGIBackend "fastcgi" "Deploy with fastcgi" :
+#endif
+#ifdef CGI_SUPPORT
+  BackendWithoutConfig CGI.forkCGIBackend "cgi" "Deploy with cgi" :
 #endif
   []
diff --git a/app/Backend/CGI.hs b/app/Backend/CGI.hs
index cc600eb..3e90cc1 100644
--- a/app/Backend/CGI.hs
+++ b/app/Backend/CGI.hs
@@ -1,4 +1,12 @@
-module Backend.CGI where
+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