From 3cc68f6b6362c2e86d77123ba61d0211eb83be6b Mon Sep 17 00:00:00 2001
From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Fri, 25 Sep 2015 22:54:10 -0400
Subject: [PATCH] Slightly change skeleton ding comment handling

---
 lib/Grade/Skeleton.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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)
-- 
2.50.1