From a96d4e6ef3b1020d239f0061af5861aadeb278fc Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 27 Dec 2022 10:37:34 +0100
Subject: Add Semigroup and Monoid instances for Description

---
 src/Language/GraphQL/AST/Document.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/Language/GraphQL/AST/Document.hs')

diff --git a/src/Language/GraphQL/AST/Document.hs b/src/Language/GraphQL/AST/Document.hs
index ea640df..131285d 100644
--- a/src/Language/GraphQL/AST/Document.hs
+++ b/src/Language/GraphQL/AST/Document.hs
@@ -464,6 +464,14 @@ data SchemaExtension
 newtype Description = Description (Maybe Text)
     deriving (Eq, Show)
 
+instance Semigroup Description
+  where
+    Description lhs <> Description rhs = Description $ lhs <> rhs
+
+instance Monoid Description
+  where
+    mempty = Description mempty
+
 -- ** Types
 
 -- | Type definitions describe various user-defined types.
-- 
cgit v1.2.3