diff --git a/hledger/Hledger/Cli/Register.hs b/hledger/Hledger/Cli/Register.hs
index de18e19bd..e81f6756a 100644
--- a/hledger/Hledger/Cli/Register.hs
+++ b/hledger/Hledger/Cli/Register.hs
@@ -111,8 +111,8 @@ balancelabel = "Balance"
 accountRegisterReport :: [Opt] -> Journal -> Matcher -> Matcher -> RegisterReport2
 accountRegisterReport opts j m thisacctmatcher = (label, items)
  where
-      -- | interval == NoInterval = items
-      -- | otherwise              = summarisePostingsByInterval interval depth empty filterspan displayps
+      -- interval == NoInterval = items
+      -- otherwise              = summarisePostingsByInterval interval depth empty filterspan displayps
 
      -- transactions affecting this account, in date order
      ts = sortBy (comparing tdate) $ filter (matchesTransaction thisacctmatcher) $ jtxns j