docs: haddock fixes

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

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