diff options
Diffstat (limited to 'src/Language/GraphQL.hs')
| -rw-r--r-- | src/Language/GraphQL.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Language/GraphQL.hs b/src/Language/GraphQL.hs index 7a0163d..7ac08d7 100644 --- a/src/Language/GraphQL.hs +++ b/src/Language/GraphQL.hs @@ -8,9 +8,7 @@ import Control.Monad.IO.Class (MonadIO) import qualified Data.Text as T import qualified Data.Aeson as Aeson -import Text.Megaparsec ( errorBundlePretty - , parse - ) +import Text.Megaparsec (parse) import Language.GraphQL.Execute import Language.GraphQL.Parser @@ -34,5 +32,5 @@ graphql = flip graphqlSubs $ const Nothing -- Returns the response as an @Aeson.@'Aeson.Value'. graphqlSubs :: MonadIO m => Schema m -> Subs -> T.Text -> m Aeson.Value graphqlSubs schema f = - either (parseError . errorBundlePretty) (execute schema f) + either parseError (execute schema f) . parse document "" |