From b9883d9eb125dc0f6babe3678994af8c0149096c Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 12 Jun 2015 06:23:34 -0700
Subject: [PATCH] query: make real: equivalent to real:1

---
 doc/manual.md                | 2 +-
 hledger-lib/Hledger/Query.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/doc/manual.md b/doc/manual.md
index e1230aa67..3f9d4c2df 100644
--- a/doc/manual.md
+++ b/doc/manual.md
@@ -1146,7 +1146,7 @@ A query term can be any of the following:
 `depth:N`                          match (or display, depending on command) accounts at or above this [depth](#depth-limiting)
 
 \                                  \
-`real:1`, `real:0`                 match real/virtual-ness
+`real:`/`real:1`, `real:0`         match real or [virtual](#virtual-postings) postings respectively
 
 \                                  \
 `status:*`, `status:!`, `status:`  match cleared, pending, or uncleared/pending transactions respectively
diff --git a/hledger-lib/Hledger/Query.hs b/hledger-lib/Hledger/Query.hs
index f545ee759..9699199c3 100644
--- a/hledger-lib/Hledger/Query.hs
+++ b/hledger-lib/Hledger/Query.hs
@@ -251,7 +251,7 @@ parseQueryTerm d ('d':'a':'t':'e':':':s) =
 parseQueryTerm _ ('s':'t':'a':'t':'u':'s':':':s) = 
         case parseStatus s of Left e   -> error' $ "\"status:"++s++"\" gave a parse error: " ++ e
                               Right st -> Left $ Status st
-parseQueryTerm _ ('r':'e':'a':'l':':':s) = Left $ Real $ parseBool s
+parseQueryTerm _ ('r':'e':'a':'l':':':s) = Left $ Real $ parseBool s || null s
 parseQueryTerm _ ('a':'m':'t':':':s) = Left $ Amt ord q where (ord, q) = parseAmountQueryTerm s
 parseQueryTerm _ ('e':'m':'p':'t':'y':':':s) = Left $ Empty $ parseBool s
 parseQueryTerm _ ('d':'e':'p':'t':'h':':':s) = Left $ Depth $ readDef 0 s