From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Sat, 26 Sep 2015 02:54:10 +0000 (-0400)
Subject: Slightly change skeleton ding comment handling
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=3cc68f6b6362c2e86d77123ba61d0211eb83be6b;p=grade

Slightly change skeleton ding comment handling
---

diff --git a/lib/Grade/Skeleton.hs b/lib/Grade/Skeleton.hs
index aa94570..80dd2ab 100644
--- a/lib/Grade/Skeleton.hs
+++ b/lib/Grade/Skeleton.hs
@@ -2,7 +2,6 @@
 
 module Grade.Skeleton where
 
-import qualified Data.Map                     as M
 import qualified Data.Text                    as T
 import           Text.PrettyPrint.Free
 import           Grade.Types
@@ -37,7 +36,7 @@ makeSkel (Defs _ sl) =
 
   prettyDing (dn, DingDefn _ _ mult dcl) =
     (if not (null dcl)
-     then (vcat (empty : map pretty dcl) `above`)
+     then (above (vcat (map pretty dcl)) . indent 1)
      else id)
     $ "#:" <> pretty (unDN dn)
            <> (if mult then " # repeat as needed" else empty)