From 9d6d240c1a264c86ece9ba3f2c2dd4f04222f106 Mon Sep 17 00:00:00 2001 From: Nathaniel Wesley Filardo Date: Fri, 30 Sep 2016 15:25:10 -0400 Subject: [PATCH] Whitespace tidy --- lib/Grade/Parse.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Grade/Parse.hs b/lib/Grade/Parse.hs index 9dd6eef..e1bf427 100644 --- a/lib/Grade/Parse.hs +++ b/lib/Grade/Parse.hs @@ -100,9 +100,9 @@ parseSectionDefn fsdap = do case M.lookup dn m of Nothing -> go (s `mappend` ds) (M.insert dn db m) ((dn,db):l) Just d -> do - -- XXX this causes an error to be printed out *after* the ding, - -- typically at the beginning of the next line. Argh. It's also - -- really ugly but more informative than it was. + -- XXX this causes an error to be printed out *after* the ding, + -- typically at the beginning of the next line. Argh. It's also + -- really ugly but more informative than it was. T.raiseErr (T.Err (Just $ "Duplicate ding definition" PP.<+> (PP.pretty $ show $ unDN dn) PP.<+> "original at" PP.<+> (PP.pretty $ show $ _dingd_loc d)) [] mempty []) -- 2.50.1