slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: factor out logic for obtaining a list of files to include

Browse Source
This commit is contained in:
Joseph Weston 2018-07-23 13:48:45 +02:00 committed by Simon Michael
parent 2d420a33a4
commit 2c4d0c0acd
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -190,23 +190,25 @@ includedirectivep :: MonadIO m => JournalParser m ()
includedirectivep = do
string "include"
lift (skipSome spacenonewline)
fileglob <- T.unpack <$> takeWhileP Nothing (/= '\n') -- don't consume newline yet
filename <- T.unpack <$> takeWhileP Nothing (/= '\n') -- don't consume newline yet
parentpos <- getPosition
curdir <- lift $ expandPath (takeDirectory $ sourceName parentpos) ""
`orRethrowIOError` (show parentpos ++ " locating " ++ fileglob)
`orRethrowIOError` (show parentpos ++ " locating " ++ filename)
filepaths <- if isLiteral (compile fileglob)
-- </> and globDir1 correctly handle case when 'fileglob' is absolute
then pure [curdir </> fileglob]
else liftIO $ globDir1 (compile fileglob) curdir
filepaths <- getFilePaths curdir filename
forM_ filepaths $ parseChild parentpos
void newline
where
getFilePaths curdir fileglob =
if isLiteral (compile fileglob)
-- </> and globDir1 correctly handle case when 'fileglob' is absolute
then pure [curdir </> fileglob]
else liftIO $ globDir1 (compile fileglob) curdir
parseChild parentpos filepath = do
childInput <- lift $ readFilePortably filepath
`orRethrowIOError` (show parentpos ++ " reading " ++ filepath)