From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Mon, 21 Sep 2015 19:18:04 +0000 (-0400)
Subject: Add newline to end of report printout
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=6d4e757ed34e4d841b19a2fbec33ceccdcced4cf;p=grade

Add newline to end of report printout
---

diff --git a/lib/Grade/Print.hs b/lib/Grade/Print.hs
index 4ab609a..f5a8af9 100644
--- a/lib/Grade/Print.hs
+++ b/lib/Grade/Print.hs
@@ -50,4 +50,6 @@ total :: ReportFile -> (Double,Double)
 total (RF secs) = foldr (\(RFS _ ss sm _ _) (e,t) -> (ss+e,sm+t)) (0.0,0.0) secs
 
 printReport :: ReportFile -> Doc e
-printReport r@(RF s) = vcat (map printSection s) <> line <> "TOTAL:" <+> (uncurry printGrade $ total r)
+printReport r@(RF s) =
+    vcat (map printSection s) <> line
+ <> "TOTAL:" <+> (uncurry printGrade $ total r) <> line