mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-26 02:11:53 +00:00
22 lines
594 B
Haskell
22 lines
594 B
Haskell
module Constants where
|
|
|
|
import Data.Aeson
|
|
import Data.Aeson.Types
|
|
import Data.Maybe
|
|
import Data.Version (showVersion)
|
|
import Lib.Types.Semver
|
|
import Paths_start9_registry (version)
|
|
import Startlude
|
|
|
|
sslPath :: FilePath
|
|
sslPath = "/var/ssl"
|
|
|
|
resourcesDir :: FilePath
|
|
resourcesDir = "/var/www/html/resources"
|
|
|
|
registryVersion :: AppVersion
|
|
registryVersion = fromJust . parseMaybe parseJSON . String . toS . showVersion $ version
|
|
|
|
getRegistryHostname :: IsString a => a
|
|
getRegistryHostname = "registry.start9labs.com"
|