From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Fri, 30 Sep 2016 19:25:10 +0000 (-0400)
Subject: Whitespace tidy
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=9d6d240c1a264c86ece9ba3f2c2dd4f04222f106;p=grade

Whitespace tidy
---

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 [])