diff --git a/Hledger/Cli/Commands/Balance.hs b/Hledger/Cli/Commands/Balance.hs
index 46e722abb..f27491cd6 100644
--- a/Hledger/Cli/Commands/Balance.hs
+++ b/Hledger/Cli/Commands/Balance.hs
@@ -117,16 +117,16 @@ import System.IO.UTF8
 
 
 -- | A balance report is a chart of accounts with balances, and their grand total.
-type BalanceReport = ([BalanceReportItem] -- ^ line items, one per account
-                     ,MixedAmount         -- ^ total balance of all accounts
+type BalanceReport = ([BalanceReportItem] -- line items, one per account
+                     ,MixedAmount         -- total balance of all accounts
                      )
 
 -- | The data for a single balance report line item, representing one account.
-type BalanceReportItem = (AccountName  -- ^ full account name
-                         ,AccountName  -- ^ account name elided for display: the leaf name,
-                                       --   prefixed by any boring parents immediately above
-                         ,Int          -- ^ account depth within this report, excludes boring parents
-                         ,MixedAmount) -- ^ account balance, includes subs unless --flat is present
+type BalanceReportItem = (AccountName  -- full account name
+                         ,AccountName  -- account name elided for display: the leaf name,
+                                       -- prefixed by any boring parents immediately above
+                         ,Int          -- account depth within this report, excludes boring parents
+                         ,MixedAmount) -- account balance, includes subs unless --flat is present
 
 -- | Print a balance report.
 balance :: [Opt] -> [String] -> Journal -> IO ()
diff --git a/Hledger/Cli/Commands/Register.hs b/Hledger/Cli/Commands/Register.hs
index 5f502a2bd..7641234d6 100644
--- a/Hledger/Cli/Commands/Register.hs
+++ b/Hledger/Cli/Commands/Register.hs
@@ -28,12 +28,12 @@ import Text.ParserCombinators.Parsec
 -- | A register report is a list of postings to an account or set of
 -- accounts, with a running total. Postings may be actual postings, or
 -- virtual postings aggregated over a reporting interval.
-type RegisterReport = [RegisterReportItem] -- ^ line items, one per posting
+type RegisterReport = [RegisterReportItem] -- line items, one per posting
 
 -- | The data for a single register report line item, representing one posting.
-type RegisterReportItem = (Maybe (Day, String) -- ^ transaction date and description if this is the first posting
-                          ,Posting             -- ^ the posting
-                          ,MixedAmount         -- ^ balance so far
+type RegisterReportItem = (Maybe (Day, String) -- transaction date and description if this is the first posting
+                          ,Posting             -- the posting
+                          ,MixedAmount         -- balance so far
                           )
 
 -- | Print a register report.