+-- | Pad each count on the left with spaces so that they start on the
+-- same column. The 'Int' argument is the length of the longest
+-- domain name with which this one will be aligned, so when you take
+-- into consideration the colon and subsequent space, the count will
+-- be placed in column @longest_length + 3@.
+--
+-- Examples:
+--
+-- >>> let dc = DomainCount "example.com" 20
+-- >>> format_domain_count 20 dc
+-- "example.com: 20"
+--
+format_domain_count :: Int -> DomainCount -> String
+format_domain_count longest_length (DomainCount d c) =
+ d ++ ": " ++ (replicate num_spaces ' ') ++ (show c)
+ where
+ num_spaces = longest_length - length d
+
+
+-- | The header that gets output before the summary report.
+--