server: more debug output

server/Main.hs

@@ -80,7 +80,7 @@ app config =
   where api = Proxy @Routes
         conv :: App a -> Handler a
         conv m = do
-          config <- liftIO $ mkDefaultCliConfig []
+          config <- liftIO $ mkDefaultCliConfig ["-v"]
           res <- runCli config m
           case res of
             Right a  -> pure a