From 92463f7c4a9be2581aa5f6913762a8de393c4924 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 24 Aug 2022 22:33:20 +0300
Subject: Add Resolver module with helpers and exceptions

---
 src/Language/GraphQL/Class.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Language/GraphQL/Class.hs b/src/Language/GraphQL/Class.hs
index 66a0b2b..3f52a13 100644
--- a/src/Language/GraphQL/Class.hs
+++ b/src/Language/GraphQL/Class.hs
@@ -24,7 +24,7 @@ fromGraphQLToIntegral (Type.Int value) = Just $ fromIntegral value
 fromGraphQLToIntegral (Type.String value) =
     case Text.Read.decimal value of
         Right (converted, "") -> Just converted
-        _ -> Nothing
+        _conversionError -> Nothing
 fromGraphQLToIntegral _ = Nothing
 
 -- | Instances of this typeclass can be converted to GraphQL internal
-- 
cgit v1.2.3