From b2d473de8dac0f85f11a8f9985d1a9a4dfee03ab Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 6 Jul 2020 19:10:34 +0200
Subject: Export sum type for all GraphQL types

---
 src/Language/GraphQL/Error.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Language/GraphQL/Error.hs')

diff --git a/src/Language/GraphQL/Error.hs b/src/Language/GraphQL/Error.hs
index 4c37f6a..b36be9c 100644
--- a/src/Language/GraphQL/Error.hs
+++ b/src/Language/GraphQL/Error.hs
@@ -79,8 +79,8 @@ singleError :: Serialize a => Text -> Response a
 singleError message = Response null $ Seq.singleton $ makeErrorMessage message
 
 -- | Convenience function for just wrapping an error message.
-addErrMsg :: Monad m => Text -> CollectErrsT m ()
-addErrMsg = addErr . makeErrorMessage
+addErrMsg :: (Monad m, Serialize a) => Text -> CollectErrsT m a
+addErrMsg errorMessage = (addErr . makeErrorMessage) errorMessage >> pure null
 
 -- | @GraphQL@ error.
 data Error = Error
-- 
cgit v1.2.3