Tidy error reporting

diff --git a/lib/Grade/GradeIO.hs b/lib/Grade/GradeIO.hs
index 36ad57f37d1ecc27e4b94d5214e29cd0e7829ac3..c49340ac9f8bb98fd3fb138c62809d8e8322e2a8 100644 (file)
--- 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