updates to registry resource path

src/Constants.hs

@@ -12,7 +12,7 @@ configPath :: FilePath
 configPath = "./config"
 
 resourcesPath :: FilePath
-resourcesPath = "./resources"
+resourcesPath = "/var/www/html/resources"
 
 registryVersion :: AppVersion
 registryVersion = fromJust . parseMaybe parseJSON . String . toS . showVersion $ version

src/Lib/Registry.hs

@@ -11,6 +11,7 @@ import           Yesod.Core
 
 import           Data.Text         (isSuffixOf)
 
+import           Constants
 import           Lib.Semver
 import           Lib.Types.Semver
 import           Util.Function
@@ -31,10 +32,10 @@ instance PathPiece S9PK where
     toPathPiece = show
 
 appResourceDir :: FilePath
-appResourceDir = "./resources/apps"
+appResourceDir = resourcesPath </> "apps"
 
 sysResourceDir :: FilePath
-sysResourceDir = "./resources/sys"
+sysResourceDir = resourcesPath </> "sys"
 
 appManifestPath :: FilePath
 appManifestPath = appResourceDir </> "apps.yaml"