tests: fix type (#6146)

* tests: fix type

* fix for ghc 8.10.7

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]

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