diff --git a/Ledger/Dates.hs b/Ledger/Dates.hs
index ad800bd1f..4fd67008c 100644
--- a/Ledger/Dates.hs
+++ b/Ledger/Dates.hs
@@ -4,8 +4,8 @@ For date and time values, we use the standard Day and UTCTime types.
 
 A 'SmartDate' is a date which may be partially-specified or relative.
 Eg 2008/12/31, but also 2008/12, 12/31, tomorrow, last week, next year.
-We represent these as a triple of strings like ("2008","12",""),
-("","","tomorrow"), ("","last","week").
+We represent these as a triple of strings like (\"2008\",\"12\",\"\"),
+(\"\",\"\",\"tomorrow\"), (\"\",\"last\",\"week\").
 
 A 'DateSpan' is the span of time between two specific calendar dates, or
 an open-ended span where one or both dates are unspecified. (A date span