diff --git a/src/Lib/External/AppMgr.hs b/src/Lib/External/AppMgr.hs index 3ca9ec0..23755fd 100644 --- a/src/Lib/External/AppMgr.hs +++ b/src/Lib/External/AppMgr.hs @@ -54,6 +54,7 @@ getConfig appmgrPath appPath e@(Extension appId) = fmap decodeUtf8 $ do getManifest :: (MonadIO m, KnownSymbol a) => FilePath -> FilePath -> Extension a -> S9ErrT m LBS.ByteString getManifest appmgrPath appPath e@(Extension appId) = do (!ec, !bs) <- readProcessInheritStderr (appmgrPath <> "embassy-sdk") ["inspect", "manifest", appPath <> show e] "" + print appId case ec of ExitSuccess -> pure bs ExitFailure n -> throwE $ AppMgrE [i|embassy-sdk inspect manifest #{appId}|] n