From 4ff3a749c60beac13d64ea59e08773757cdb744b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 31 Mar 2018 02:44:04 +0100
Subject: [PATCH] lib: note an oddity with runJournalParser

---
 hledger-lib/Hledger/Read/Common.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/hledger-lib/Hledger/Read/Common.hs b/hledger-lib/Hledger/Read/Common.hs
index aa9fc6edc..caf5fd050 100644
--- a/hledger-lib/Hledger/Read/Common.hs
+++ b/hledger-lib/Hledger/Read/Common.hs
@@ -90,6 +90,7 @@ runTextParser, rtp :: TextParser Identity a -> Text -> Either (ParseError Char M
 runTextParser p t =  runParser p "" t
 rtp = runTextParser
 
+-- XXX odd, why doesn't this take a JournalParser ?
 -- | Run a journal parser with a null journal-parsing state.
 runJournalParser, rjp :: Monad m => TextParser m a -> Text -> m (Either (ParseError Char MPErr) a)
 runJournalParser p t = runParserT p "" t