tests: fix type (#6146)

* tests: fix type * fix for ghc 8.10.7
2026-04-26 17:27:57 +00:00 · 2025-08-02 15:24:30 +01:00
parent ac5a2ee399
commit 317cbd3785
2 changed files with 6 additions and 1 deletions
--- 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]