Whitespace tidy

diff --git a/lib/Grade/Parse.hs b/lib/Grade/Parse.hs
index 9dd6eefa75cec9bbc3b9c4e9e928ced5edc0a695..e1bf427e4f23b6f438eadce40486d9d6c71f8391 100644 (file)
--- 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 [])