From 042a2ad45e2fd86c2456b912844ca4d8fdc83765 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 19 Nov 2009 02:02:12 +0000
Subject: [PATCH] allow (and ignore) a time in price records

---
 Ledger/Parse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index ef9ca9fe3..08948dd86 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -289,7 +289,7 @@ ledgerHistoricalPrice :: GenParser Char LedgerFileCtx HistoricalPrice
 ledgerHistoricalPrice = do
   char 'P' <?> "historical price"
   many spacenonewline
-  date <- ledgerdate
+  date <- try (do {LocalTime d _ <- ledgerdatetime; return d}) <|> ledgerdate -- a time is ignored
   many1 spacenonewline
   symbol <- commoditysymbol
   many spacenonewline