From 317cbd3785ff6d7277522d5b28cf97f46e9afefc Mon Sep 17 00:00:00 2001
From: Evgeny <evgeny@poberezkin.com>
Date: Sat, 2 Aug 2025 15:24:30 +0100
Subject: [PATCH] tests: fix type (#6146)

* tests: fix type

* fix for ghc 8.10.7
---
 bots/src/API/Docs/Syntax/Types.hs | 5 ++++-
 tests/ChatClient.hs               | 2 ++
 2 files changed, 6 insertions(+), 1 deletion(-)

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