refactor is in progress

app/Backend/Https.hs

@@ -1 +1,20 @@
 module Backend.Https where
+
+import Backend.Http
+import qualified Data.Text as T
+import Toml (TomlCodec, (.=))
+import qualified Toml
+
+type HttpsConfiguration = (HttpConfiguration, TLSConfiguration)
+
+data TLSConfiguration = TLSConfiguration
+  { cerfFile :: FilePath,
+    certChain :: [FilePath],
+    keyFile :: FilePath
+  }
+
+tlsDefaultSetting :: TLSConfiguration
+tlsDefaultSetting = TLSConfiguration "certificate.pem" [] "key.pem"
+
+httpsDefaultSetting :: HttpsConfiguration
+httpsDefaultSetting = (httpDefaultSetting, tlsDefaultSetting)