diff --git a/hledger-lib/Hledger/Data/Amount.hs b/hledger-lib/Hledger/Data/Amount.hs
index 061df8684..71c6276a2 100644
--- a/hledger-lib/Hledger/Data/Amount.hs
+++ b/hledger-lib/Hledger/Data/Amount.hs
@@ -185,7 +185,7 @@ showamountquantity (Amount (Commodity {decimalpoint=d,precision=p,separator=s,se
     punctuatenumber d s spos $ qstr
     where
     -- isint n = fromIntegral (round n) == n
-    qstr -- | p == maxprecision && isint q = printf "%d" (round q::Integer)
+    qstr -- p == maxprecision && isint q = printf "%d" (round q::Integer)
          | p == maxprecisionwithpoint    = printf "%f" q
          | p == maxprecision             = chopdotzero $ printf "%f" q
          | otherwise                    = printf ("%."++show p++"f") q
diff --git a/hledger-lib/Hledger/Data/Types.hs b/hledger-lib/Hledger/Data/Types.hs
index 03910a80d..b2a32e781 100644
--- a/hledger-lib/Hledger/Data/Types.hs
+++ b/hledger-lib/Hledger/Data/Types.hs
@@ -49,7 +49,7 @@ data DateSpan = DateSpan (Maybe Day) (Maybe Day) deriving (Eq,Show,Ord)
 data Interval = NoInterval
               | Days Int | Weeks Int | Months Int | Quarters Int | Years Int
               | DayOfMonth Int | DayOfWeek Int
-              -- | WeekOfYear Int | MonthOfYear Int | QuarterOfYear Int
+              -- WeekOfYear Int | MonthOfYear Int | QuarterOfYear Int
                 deriving (Eq,Show,Ord)
 
 type AccountName = String
@@ -68,7 +68,7 @@ data Commodity = Commodity {
       separatorpositions :: [Int]  -- ^ positions of separators, counting leftward from decimal point
     } deriving (Eq,Ord,Show,Read)
 
--- | An amount's price may be written as @ unit price or @@ total price.
+-- | An amount's price may be written as \@ unit price or \@\@ total price.
 -- Note although Price has a MixedAmount, it should hold only
 -- single-commodity amounts, cf costOfAmount.
 data Price = UnitPrice MixedAmount | TotalPrice MixedAmount