From 55c0a688c0275981992740041bd1073c87520c0a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 23 Jan 2009 18:10:17 +0000
Subject: [PATCH] that parser is not right, breaks hours period selection

---
 Ledger/Dates.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/Ledger/Dates.hs b/Ledger/Dates.hs
index ea403073a..6d7910c4b 100644
--- a/Ledger/Dates.hs
+++ b/Ledger/Dates.hs
@@ -236,7 +236,7 @@ Assumes any text in the parse stream has been lowercased.
 smartdate :: GenParser Char st SmartDate
 smartdate = do
   let dateparsers = [yyyymmdd, ymd, ym, md, y, d, month, mon, today, yesterday, tomorrow,
-                     lastthisnextthing, thing
+                     lastthisnextthing
                     ]
   (y,m,d) <- choice $ map try dateparsers
   return $ (y,m,d)
@@ -339,17 +339,6 @@ lastthisnextthing = do
             
   return ("",r,p)
 
-thing :: GenParser Char st SmartDate
-thing = do
-  p <- choice $ [
-        string "day"
-       ,string "week"
-       ,string "month"
-       ,string "quarter"
-       ,string "year"
-      ]
-  return ("","this",p)
-
 periodexpr :: Day -> GenParser Char st (Interval, DateSpan)
 periodexpr rdate = choice $ map try [
                     intervalanddateperiodexpr rdate,