From c7a047407c61cdf88a7cdf1b22a1ac1becaba362 Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Mon, 27 Sep 2021 15:22:12 -0600 Subject: [PATCH] remove function that is invalid for 0.3 appmgr --- src/Lib/External/AppMgr.hs | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/src/Lib/External/AppMgr.hs b/src/Lib/External/AppMgr.hs index 451b362..b650b27 100644 --- a/src/Lib/External/AppMgr.hs +++ b/src/Lib/External/AppMgr.hs @@ -57,19 +57,6 @@ readProcessInheritStderr a b c sink = do $ System.Process.Typed.proc a b 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 appmgrPath appPath e@(Extension appId) sink = do let appmgr = readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "manifest", appPath show e] ""