]> hydra-www.ietfng.org Git - grade/commitdiff
Add newline to end of report printout
authorNathaniel Wesley Filardo <nwf@cs.jhu.edu>
Mon, 21 Sep 2015 19:18:04 +0000 (15:18 -0400)
committerNathaniel Wesley Filardo <nwf@cs.jhu.edu>
Mon, 21 Sep 2015 19:20:50 +0000 (15:20 -0400)
lib/Grade/Print.hs

index 4ab609a2e6bfe20be84f9254757ed55cb46b468b..f5a8af9c0206caca421679e3ee25f8089cd00944 100644 (file)
@@ -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