initial commit

src/Constants.hs

@@ -0,0 +1,18 @@
+module Constants where
+
+import           Data.Aeson
+import           Data.Aeson.Types
+import           Data.Maybe
+import           Data.Version          (showVersion)
+import           Lib.Types.ServerApp
+import           Paths_start9_registry (version)
+import           Startlude
+
+configBasePath :: FilePath
+configBasePath = "/root/registry"
+
+registryVersion :: AppVersion
+registryVersion = fromJust . parseMaybe parseJSON . String . toS . showVersion $ version
+
+getRegistryHostname :: IsString a => a
+getRegistryHostname = "registry"