From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Fri, 30 Sep 2016 17:25:15 +0000 (-0400)
Subject: Tidy error reporting
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=b4a87f982fb31109697cbfe8c0ec6a77145ec21f;p=grade

Tidy error reporting
---

diff --git a/lib/Grade/GradeIO.hs b/lib/Grade/GradeIO.hs
index 36ad57f..c49340a 100644
--- a/lib/Grade/GradeIO.hs
+++ b/lib/Grade/GradeIO.hs
@@ -51,7 +51,7 @@ withReport :: Defines T.Parser T.Caret
 withReport defs dati act = do
   mdata <- T.parseFromFileEx (parseData defs) dati
   case mdata of
-    T.Failure e -> parseErr (PP.pretty $ show e) -- XXX; sadness and woe
+    T.Failure e -> parseErr (PP.pretty $ show $ T._errDoc e) -- XXX; sadness and woe
     T.Success (dats, errs) ->
       case errs of
         [] -> case gradeOne defs dats of