Report parse errors with line and column numbers

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 ""