From 85f1ffa4061fb29ba57f8d0a1334a7d0b2e50818 Mon Sep 17 00:00:00 2001
From: Keagan McClelland <keagan.mcclelland@gmail.com>
Date: Thu, 23 Sep 2021 15:34:41 -0600
Subject: [PATCH] print appids when they complete

---
 src/Lib/External/AppMgr.hs | 1 +
 1 file changed, 1 insertion(+)

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