From 8e7d20e4d544024ae1535ff200202e07ba754c68 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Johann=20Kl=C3=A4hn?= Date: Tue, 31 May 2011 17:41:12 +0000 Subject: [PATCH] parsing: support pop as well as end tag --- hledger-lib/Hledger/Read/JournalReader.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs index 50a3367b9..77ac22784 100644 --- a/hledger-lib/Hledger/Read/JournalReader.hs +++ b/hledger-lib/Hledger/Read/JournalReader.hs @@ -300,7 +300,7 @@ ledgerTagDirective = do ledgerEndTagDirective :: GenParser Char JournalContext JournalUpdate ledgerEndTagDirective = do - string "end tag" "end tag directive" + (string "end tag" <|> string "pop") "end tag or pop directive" restofline return $ return id @@ -708,6 +708,8 @@ tests_Hledger_Read_JournalReader = TestList [ ,"ledgerEndTagDirective" ~: do assertParse (parseWithCtx nullctx ledgerEndTagDirective "end tag \n") + ,"ledgerEndTagDirective" ~: do + assertParse (parseWithCtx nullctx ledgerEndTagDirective "pop \n") ,"ledgeraccountname" ~: do assertBool "ledgeraccountname parses a normal accountname" (isRight $ parsewith ledgeraccountname "a:b:c")