From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Mon, 21 Sep 2015 18:59:13 +0000 (-0400)
Subject: Gobble whitespace after section header in defines
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=8b2c2b0cf96ef2be415e60980a38d91b03479011;p=grade

Gobble whitespace after section header in defines
---

diff --git a/lib/Grade/Parse.hs b/lib/Grade/Parse.hs
index df50f09..56c153b 100644
--- a/lib/Grade/Parse.hs
+++ b/lib/Grade/Parse.hs
@@ -76,6 +76,7 @@ parseSectionDefn fsdap = do
   _       <- T.symbolic '-'
   stitle  <- toUtf8 (T.sliced (T.manyTill T.anyChar (T.lookAhead T.newline)))
   _       <- T.newline
+  _       <- T.whiteSpace
   case esdp of
     ExSecCB (SC mfss fsdt sdpo sfn smaxfn) -> do
       (sstate, sdings) <- getDings fsdt M.empty