From c2199b1125c0276a7a5be29d28d6ee66436f39a7 Mon Sep 17 00:00:00 2001
From: Alex Chen <awchen@ucalgary.ca>
Date: Thu, 10 May 2018 13:58:55 -0600
Subject: [PATCH] lib: Add explicit export list to Common.hs

---
 hledger-lib/Hledger/Read/Common.hs | 63 +++++++++++++++++++++++++++++-
 1 file changed, 61 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Read/Common.hs b/hledger-lib/Hledger/Read/Common.hs
index ab57bd877..d12461159 100644
--- a/hledger-lib/Hledger/Read/Common.hs
+++ b/hledger-lib/Hledger/Read/Common.hs
@@ -16,7 +16,66 @@ Some of these might belong in Hledger.Read.JournalReader or Hledger.Read.
 {-# LANGUAGE CPP, BangPatterns, DeriveDataTypeable, RecordWildCards, NamedFieldPuns, NoMonoLocalBinds, ScopedTypeVariables, FlexibleContexts, TupleSections, OverloadedStrings #-}
 {-# LANGUAGE LambdaCase #-}
 
-module Hledger.Read.Common
+module Hledger.Read.Common (
+  Reader (..),
+  InputOpts (..),
+  rawOptsToInputOpts,
+
+  -- * parsing utilities
+  runTextParser,
+  runJournalParser,
+  rjp,
+  runErroringJournalParser,
+  rejp,
+  genericSourcePos,
+  journalSourcePos,
+  generateAutomaticPostings,
+  parseAndFinaliseJournal,
+  setYear,
+  setDefaultCommodityAndStyle,
+  getDefaultCommodityAndStyle,
+  pushParentAccount,
+  popParentAccount,
+  getParentAccount,
+  addAccountAlias,
+  clearAccountAliases,
+  journalAddFile,
+  parserErrorAt,
+
+  -- * parsers
+  -- ** transaction bits
+  statusp,
+  codep,
+  descriptionp,
+
+  -- ** dates
+  datep,
+  datetimep,
+  secondarydatep,
+
+  -- ** account names
+  modifiedaccountnamep,
+  accountnamep,
+
+  -- ** amounts
+  spaceandamountormissingp,
+  amountp,
+  mamountp',
+  commoditysymbolp,
+  partialbalanceassertionp,
+  fixedlotpricep,
+  numberp,
+
+  -- ** comments
+  multilinecommentp,
+  emptyorcommentlinep,
+  followingcommentp,
+  followingcommentandtagsp,
+
+  -- ** tags
+  commentTags,
+  tagsp
+)
 where
 --- * imports
 import Prelude ()
@@ -107,7 +166,7 @@ rawOptsToInputOpts rawopts = InputOpts{
   ,auto_              = boolopt "auto" rawopts                        
   }
 
---- * parsing utils
+--- * parsing utilities
 
 -- | Run a string parser with no state in the identity monad.
 runTextParser, rtp :: TextParser Identity a -> Text -> Either (ParseError Char MPErr) a