From f3bf98bfae99d7fae213bc90232c0b4e91f58746 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 26 May 2016 15:51:59 -0700
Subject: [PATCH] lib: parentheses trying to resolve IDE warning

---
 hledger-lib/Hledger/Read/CsvReader.hs     | 4 ++--
 hledger-lib/Hledger/Read/JournalReader.hs | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs
index 7e3805901..8e42b2c9b 100644
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@@ -420,13 +420,13 @@ commentcharp :: Stream [Char] m t => ParsecT [Char] CsvRules m Char
 commentcharp = oneOf ";#*"
 
 directivep :: Stream [Char] m t => ParsecT [Char] CsvRules m (DirectiveName, String)
-directivep = do
+directivep = (do
   pdbg 3 "trying directive"
   d <- choice' $ map string directives
   v <- (((char ':' >> many spacenonewline) <|> many1 spacenonewline) >> directivevalp)
        <|> (optional (char ':') >> many spacenonewline >> eolof >> return "")
   return (d,v)
-  <?> "directive"
+  ) <?> "directive"
 
 directives =
   ["date-format"
diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index 60847f038..d45be0102 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@@ -161,7 +161,7 @@ addJournalItemP =
 -- Cf http://hledger.org/manual.html#directives,
 -- http://ledger-cli.org/3.0/doc/ledger3.html#Command-Directives
 directivep :: ErroringJournalParser ()
-directivep = do
+directivep = (do
   optional $ char '!'
   choice' [
     includedirectivep
@@ -178,7 +178,7 @@ directivep = do
    ,commodityconversiondirectivep
    ,ignoredpricecommoditydirectivep
    ]
-  <?> "directive"
+  ) <?> "directive"
 
 includedirectivep :: ErroringJournalParser ()
 includedirectivep = do