config parser works

app/Config.hs

@@ -1,9 +1,9 @@
 {-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecordWildCards #-}
-module Config() where
+module Config(Configuration(..),defaultConfiguration,configurationCodec) where
   
 import Toml (TomlCodec, (.=))
 import qualified Toml
+import System.IO
 
 -- this module should handle everything connected to our TOML config
 #if defined(HTTP_SUPPORT) || defined(HTTPS_SUPPORT)
@@ -16,17 +16,18 @@ import qualified Network.Wai.Handler.WarpTLS as HTTPS
 #endif
 
 data Configuration = Configuration {
+  cppDummy :: () -- this is a hack to get around the , rules of haskell records and the preprocessor
 #ifdef HTTP_SUPPORT
-  httpConf :: [HTTP.Settings]
+  , httpConf :: [HTTP.Settings]
 #endif
 #ifdef HTTPS_SUPPORT
-  httpsConf :: [(HTTP.Settings,HTTPS.TLSSettings)]
+  , httpsConf :: [(HTTP.Settings,HTTPS.TLSSettings)]
 #endif
 #ifdef FASTCGI_SUPPORT
-  fastCgiConf :: [FastCgiConfiguration]
+  , fastCgiConf :: [FastCgiConfiguration]
 #endif
 #ifdef CGI_SUPPORT
-  cgiConf :: [CgiConfiguration]
+  , cgiConf :: [CgiConfiguration]
 #endif
   }
 
@@ -38,8 +39,22 @@ data FastCgiConfiguration = FastCgiConfiguration
 data CgiConfiguration = CgiConfiguration
 #endif
 
-#if defined(HTTP_SUPPORT) || defined(HTTPS_SUPPORT)
+defaultConfiguration :: Configuration
+defaultConfiguration = Configuration ()
+#ifdef HTTP_SUPPORT
+  [HTTP.defaultSettings]
+#endif
+#ifdef HTTPS_SUPPORT
+  [(HTTP.defaultSettings,HTTPS.defaultTlsSettings)]
+#endif
+#ifdef FASTCGI_SUPPORT
+  [FastCgiConfiguration]
+#endif
+#ifdef CGI_SUPPORT
+  [CgiConfiguration]
+#endif
 
+#if defined(HTTP_SUPPORT) || defined(HTTPS_SUPPORT)
 -- this should not need to exist!!! It is realy ugly crap, but the only we to construct and deconstruct
 -- this datatype is via fromString, read, show. And as we want the fromString syntax we want an inverse
 -- of it too, but we don't get something nice exposed. Also we don't get the constructors exposed so we
@@ -62,8 +77,41 @@ httpConfigCodec = httpConfigConstructor
   <*> Toml.string "Bind" .= (httpShowHostPreference . HTTP.getHost)
 #endif
 
+#ifdef HTTPS_SUPPORT
+httpsConfigCodec :: TomlCodec (HTTP.Settings,HTTPS.TLSSettings)
+httpsConfigCodec = Toml.pair httpConfigCodec httpsConfigCodec'
+
+httpsConfigCodec' :: TomlCodec (HTTPS.TLSSettings)
+httpsConfigCodec' = HTTPS.tlsSettingsChain
+-- the hardcoded strings are a bloody hack, but we can't extract the values back out of a config (they are there
+-- warp just doesn't export the neccesarry types). So we hardcode default values, which is kind of realy bad, but
+-- we don't need it in our usecase
+  <$> Toml.string "Certificate"        .= (const "certificate.pem")
+  <*> Toml.arrayOf Toml._String "CertChain" .= (const [])
+  <*> Toml.string "KeyFile"            .= (const "key.pem")
+#endif
+
+#ifdef FASTCGI_SUPPORT
+fastCgiConfigCodec :: TomlCodec FastCgiConfiguration
+fastCgiConfigCodec = pure FastCgiConfiguration
+#endif
+
+#ifdef CGI_SUPPORT
+cgiConfigCodec :: TomlCodec CgiConfiguration
+cgiConfigCodec = pure CgiConfiguration
+#endif
+
 configurationCodec :: TomlCodec Configuration
-configurationCodec = pure Configuration
+configurationCodec = pure (Configuration ())
 #ifdef HTTP_SUPPORT
   <*> Toml.list httpConfigCodec "http" .= httpConf
 #endif
+#ifdef HTTPS_SUPPORT
+  <*> Toml.list httpsConfigCodec "https" .= httpsConf
+#endif
+#ifdef FASTCGI_SUPPORT
+  <*> Toml.list fastCgiConfigCodec "fast-cgi" .= fastCgiConf
+#endif
+#ifdef CGI_SUPPORT
+  <*> Toml.list cgiConfigCodec "cgi" .= cgiConf
+#endif