From f8d7f94cc5fde78d69861af57afa0739900656ca Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Thu, 23 Sep 2021 15:11:26 -0600 Subject: [PATCH] time appmgr --- src/Handler/Marketplace.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Marketplace.hs b/src/Handler/Marketplace.hs index 4932522..193a893 100644 --- a/src/Handler/Marketplace.hs +++ b/src/Handler/Marketplace.hs @@ -368,7 +368,7 @@ getServiceDetails settings metadata maybeVersion appId = do Just v -> pure v let appDir = (<> "/") . ( show version) . ( show appId) $ appsDir let appExt = Extension (show appId) :: Extension "s9pk" - manifest' <- handleS9ErrNuclear $ getManifest appMgrDir appDir appExt + manifest' <- time "appmgr sucks" $ handleS9ErrNuclear $ getManifest appMgrDir appDir appExt case eitherDecode $ manifest' of Left e -> pure $ Left $ "Could not parse service manifest for " <> show appId <> ": " <> show e Right m -> do