From 505d6774617641de795396043fdc5dbbb2d88e74 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 18 Apr 2011 06:36:00 +0000
Subject: [PATCH] docs: haddock fixes

---
 hledger-lib/Hledger/Data/Amount.hs | 2 +-
 hledger-lib/Hledger/Data/Types.hs  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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