diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-07-06 19:10:34 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-07-06 19:10:34 +0200 |
| commit | b2d473de8dac0f85f11a8f9985d1a9a4dfee03ab (patch) | |
| tree | 15795c6a249396225da9e95be1628b8606851181 /src/Language/GraphQL/Error.hs | |
| parent | a6f9cec413c35abdcb0d04a5550334dd2fa7d472 (diff) | |
| download | graphql-b2d473de8dac0f85f11a8f9985d1a9a4dfee03ab.tar.gz | |
Export sum type for all GraphQL types
Diffstat (limited to 'src/Language/GraphQL/Error.hs')
| -rw-r--r-- | src/Language/GraphQL/Error.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |