diff --git a/bots/src/API/Docs/Syntax/Types.hs b/bots/src/API/Docs/Syntax/Types.hs
index efb8f5e23f..211348d5a9 100644
--- a/bots/src/API/Docs/Syntax/Types.hs
+++ b/bots/src/API/Docs/Syntax/Types.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE OverloadedLists #-}
 
 module API.Docs.Syntax.Types where
 
@@ -27,4 +28,6 @@ isConst = \case
 
 instance IsString Expr where fromString = Const
 
-instance Semigroup Expr where sconcat = Concat
+instance Semigroup Expr where
+  sconcat = Concat
+  x <> y = Concat [x, y]
diff --git a/tests/ChatClient.hs b/tests/ChatClient.hs
index 9c19923772..efcab785a9 100644
--- a/tests/ChatClient.hs
+++ b/tests/ChatClient.hs
@@ -603,6 +603,8 @@ xftpServerConfig =
       logStatsStartTime = 0,
       serverStatsLogFile = "tests/tmp/xftp-server-stats.daily.log",
       serverStatsBackupFile = Nothing,
+      prometheusInterval = Nothing,
+      prometheusMetricsFile = "tests/xftp-server-metrics.txt",
       controlPort = Nothing,
       transportConfig = mkTransportServerConfig True (Just alpnSupportedXFTPhandshakes) False,
       responseDelay = 0