lib: parentheses trying to resolve IDE warning

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"

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