Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Class: remove stFontFiles in PureState, 'glob' searches stFiles.

Browse source
This commit is contained in:
John MacFarlane 2017-07-14 16:35:29 +02:00
parent f140784870
commit f8fef1ebb0
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Class.hs
View file

@ -438,7 +438,6 @@ data PureState = PureState { stStdGen :: StdGen
, stFiles :: FileTree
, stUserDataDir :: FileTree
, stCabalDataDir :: FileTree
, stFontFiles :: [FilePath]
}
instance Default PureState where
@ -453,7 +452,6 @@ instance Default PureState where
, stFiles = mempty
, stUserDataDir = mempty
, stCabalDataDir = mempty
, stFontFiles = []
}
@ -550,8 +548,8 @@ instance PandocMonad PandocPure where
Nothing -> readDataFile Nothing fname
glob s = do
fontFiles <- getsPureState stFontFiles
return (filter (match (compile s)) fontFiles)
FileTree ftmap <- getsPureState stFiles
return $ filter (match (compile s)) $ M.keys ftmap
getModificationTime fp = do
fps <- getsPureState stFiles