Fix usage of deprecated startMetricsHttpServer call

fluffy/fluffy.nim

@@ -244,13 +244,19 @@ proc run(config: PortalConf) {.raises: [CatchableError].} =
     let
       address = config.metricsAddress
       port = config.metricsPort
-    info "Starting metrics HTTP server",
       url = "http://" & $address & ":" & $port & "/metrics"
+
+      server = MetricsHttpServerRef.new($address, port).valueOr:
+        error "Could not start metrics HTTP server", url, error
+        quit QuitFailure
+
+    info "Starting metrics HTTP server", url
     try:
-      chronos_httpserver.startMetricsHttpServer($address, port)
-    except CatchableError as exc: raise exc
-    # TODO: Ideally we don't have the Exception here
-    except Exception as exc: raiseAssert exc.msg
+      waitFor server.start()
+    except MetricsError as exc:
+      fatal "Could not start metrics HTTP server", url,
+        error_msg = exc.msg, error_name = exc.name
+      quit QuitFailure
 
   ## Starting the different networks.
   d.start()

fluffy/tools/portalcli.nim

@@ -236,12 +236,19 @@ proc run(config: PortalCliConf) =
     let
       address = config.metricsAddress
       port = config.metricsPort
-    notice "Starting metrics HTTP server",
       url = "http://" & $address & ":" & $port & "/metrics"
+
+      server = MetricsHttpServerRef.new($address, port).valueOr:
+        error "Could not start metrics HTTP server", url, error
+        quit QuitFailure
+
+    info "Starting metrics HTTP server", url
     try:
-      chronos_httpserver.startMetricsHttpServer($address, port)
-    except CatchableError as exc: raise exc
-    except Exception as exc: raiseAssert exc.msg # TODO fix metrics
+      waitFor server.start()
+    except MetricsError as exc:
+      fatal "Could not start metrics HTTP server", url,
+        error_msg = exc.msg, error_name = exc.name
+      quit QuitFailure
 
   case config.cmd
   of ping: