mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-30 19:54:47 +00:00
remove function that is invalid for 0.3 appmgr
This commit is contained in:
13
src/Lib/External/AppMgr.hs
vendored
13
src/Lib/External/AppMgr.hs
vendored
@@ -57,19 +57,6 @@ readProcessInheritStderr a b c sink = do
|
|||||||
$ System.Process.Typed.proc a b
|
$ System.Process.Typed.proc a b
|
||||||
withProcessTerm_ pc $ \p -> sink (getStdout p)
|
withProcessTerm_ pc $ \p -> sink (getStdout p)
|
||||||
|
|
||||||
sourceConfig :: (MonadUnliftIO m, MonadThrow m)
|
|
||||||
=> FilePath
|
|
||||||
-> FilePath
|
|
||||||
-> S9PK
|
|
||||||
-> (ConduitT () ByteString m () -> m r)
|
|
||||||
-> m r
|
|
||||||
sourceConfig appmgrPath appPath e@(Extension appId) sink = do
|
|
||||||
let
|
|
||||||
appmgr = readProcessInheritStderr (appmgrPath <> "embassy-sdk")
|
|
||||||
["inspect", "config", appPath </> show e, "--json"]
|
|
||||||
""
|
|
||||||
appmgr sink `catch` \ece -> throwIO (AppMgrE [i|inspect config #{appId} \--json|] (eceExitCode ece))
|
|
||||||
|
|
||||||
sourceManifest :: (MonadUnliftIO m) => FilePath -> FilePath -> S9PK -> (ConduitT () ByteString m () -> m r) -> m r
|
sourceManifest :: (MonadUnliftIO m) => FilePath -> FilePath -> S9PK -> (ConduitT () ByteString m () -> m r) -> m r
|
||||||
sourceManifest appmgrPath appPath e@(Extension appId) sink = do
|
sourceManifest appmgrPath appPath e@(Extension appId) sink = do
|
||||||
let appmgr = readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "manifest", appPath </> show e] ""
|
let appmgr = readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "manifest", appPath </> show e] ""
|
||||||
|
|||||||
Reference in New Issue
Block a user