scaffolding ready for s9pks

src/Constants.hs

@@ -4,15 +4,18 @@ import           Data.Aeson
 import           Data.Aeson.Types
 import           Data.Maybe
 import           Data.Version          (showVersion)
-import           Lib.Types.ServerApp
+import           Lib.Types.Semver
 import           Paths_start9_registry (version)
 import           Startlude
 
-configBasePath :: FilePath
-configBasePath = "./config"
+configPath :: FilePath
+configPath = "./config"
+
+resourcesPath :: FilePath
+resourcesPath = "./resources"
 
 registryVersion :: AppVersion
 registryVersion = fromJust . parseMaybe parseJSON . String . toS . showVersion $ version
 
 getRegistryHostname :: IsString a => a
-getRegistryHostname = "registry"
+getRegistryHostname = "registry.start9labs.com"