From b4a87f982fb31109697cbfe8c0ec6a77145ec21f Mon Sep 17 00:00:00 2001
From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Fri, 30 Sep 2016 13:25:15 -0400
Subject: [PATCH] Tidy error reporting

---
 lib/Grade/GradeIO.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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