mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-26 02:11:53 +00:00
19 lines
535 B
Haskell
19 lines
535 B
Haskell
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"
|