src/Repositories.hs Modified

@@ -57,6 +57,3 @@
     case e of
         Right contents -> return $ Just contents
         Left err -> return Nothing
-
--- Variables:
---host = "http://localhost"

src/Config.hs Modified

@@ -14,6 +14,7 @@
     { repoPaths :: [FilePath]
     , templateDirectory :: FilePath
     , outputDirectory :: FilePath
+    , host :: FilePath
     }
     deriving (Generic, Show)
 

config.dhall Modified

@@ -14,6 +14,7 @@
     { repoPaths = folders
     , templateDirectory = "./templates"
     , outputDirectory = "./output"
+    , host = "http://localhost"
     }
 
 in config