Fix pretty-printing multiple feedback judgements

Addresses question 1 in #28
DIKU-EDU · Apr 10, 2020 · 148ca6b · 148ca6b
1 parent 18a18ec
commit 148ca6b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Export/Feedback.hs b/src/Export/Feedback.hs
@@ -7,15 +7,15 @@ import Prelude hiding ((<>))
 import Text.PrettyPrint
 
 feedbackRemarks :: [Judgement] -> String
-feedbackRemarks = render . hcat . map (formatJudgement 1)
+feedbackRemarks = render . vcat . map (formatJudgement 1)
 
 formatJudgement :: Int -> Judgement -> Doc
 formatJudgement _ (Feedback (_, t)) = text t
 formatJudgement _ (Bonus (_, _, _)) = empty
 formatJudgement depth (j @ (Judgement (_, _, _, judgements))) =
   case isEmpty subj of
     True -> empty
-    False -> formatHeader depth j $+$ text "" $+$ subj
+    False -> formatHeader depth j $+$ text "" $+$ subj $+$ text ""
   where
     subj = vcat $ map (formatJudgement (depth + 1)) judgements