From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Sun, 25 Sep 2016 02:56:42 +0000 (-0400)
Subject: Skeleton: comment out comment delimeters
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=a9532180c1dea3225bbff0c02278525a9d9c461f;p=grade

Skeleton: comment out comment delimeters
---

diff --git a/lib/Grade/Skeleton.hs b/lib/Grade/Skeleton.hs
index 59f13d4..4a2691f 100644
--- a/lib/Grade/Skeleton.hs
+++ b/lib/Grade/Skeleton.hs
@@ -29,7 +29,7 @@ makeSkel (Defs _ sl) =
      then maybe empty id scl'
      else maybe id above scl' $
                   "#@" <> pretty (unSN sn) <> maybe empty ((empty <+>) . pretty) (fst msh)
-          `above` prettyDings ic sds (vcat [empty, commentStart, empty, commentEnd])
+          `above` prettyDings ic sds (vcat [empty, "#" <> commentStart, empty, "#" <> commentEnd])
 
  where
   prettyDings _ [] = id