Skeleton: comment out comment delimeters

diff --git a/lib/Grade/Skeleton.hs b/lib/Grade/Skeleton.hs
index 59f13d45308b4eabf4172acd99900393431f5f71..4a2691f74aa4c0a794053cea7387ac3c9527495a 100644 (file)
--- 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