aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Class.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
index d8505e0b1..6906873d7 100644
--- a/src/Text/Pandoc/Class.hs
+++ b/src/Text/Pandoc/Class.hs
@@ -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