Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-04-01 20:44:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

fixes image path

Browse Source
This commit is contained in:
Aaron Greenspan
2020-01-02 15:01:06 -07:00
parent e7b9a54990
commit f341f8ebaf
3 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/Handler/Apps.hs
View File

@@ -17,6 +17,7 @@ import qualified GHC.Show (Show (..))
import System.Directory
import Yesod.Core
import Constants
import Foundation
import Handler.Types.Status
import Lib.Registry
@@ -39,7 +40,7 @@ getAppsManifestR :: Handler TypedContent
getAppsManifestR = respondSource typePlain $ CB.sourceFile appManifestPath .| awaitForever sendChunkBS
getImageR :: Handler TypedContent
getImageR = getApp sysResourceDir ("image" :: Extension "")
getImageR = getApp resourcesDir ("sys" :: Extension "tar.gz")
getAgentR :: Handler TypedContent
getAgentR = getApp sysResourceDir ("agent" :: Extension "")