Gobble whitespace after section header in defines

diff --git a/lib/Grade/Parse.hs b/lib/Grade/Parse.hs
index df50f097402dd9e33d741cddb3210d1a67b54086..56c153b7118c9b17561e9e587689e4a66d66072a 100644 (file)
--- 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