From e794412a8fd22d85d4c92314fb7a4159678bc42d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 27 Dec 2014 15:23:17 -0800
Subject: [PATCH] fix JournalReader ctx warning

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

diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index a102d035e..9f7181093 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@@ -214,7 +214,7 @@ includedirective = do
   r <- liftIO $ runErrorT u
   case r of
     Left err -> return $ throwError err
-    Right (ju, ctx) -> return $ ErrorT $ return $ Right ju
+    Right (ju, _finalparsectx) -> return $ ErrorT $ return $ Right ju
 
 journalAddFile :: (FilePath,String) -> Journal -> Journal
 journalAddFile f j@Journal{files=fs} = j{files=fs++[f]}