diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-12-28 10:26:54 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-12-28 10:26:54 -0800 |
| commit | fa79e003b309fababbe70db946f88556bef3198c (patch) | |
| tree | 079aebfb0a2884d7cfbc48ed0f502c7ecf66f7e2 /test | |
| parent | ddd6a892470181b321ac2f80ffb76809f15419c8 (diff) | |
| download | pandoc-fa79e003b309fababbe70db946f88556bef3198c.tar.gz | |
Use insertInFileTree in powerpoint test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Writers/Powerpoint/PureData.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test/Tests/Writers/Powerpoint/PureData.hs b/test/Tests/Writers/Powerpoint/PureData.hs index b54cfd84a..3f4446e68 100644 --- a/test/Tests/Writers/Powerpoint/PureData.hs +++ b/test/Tests/Writers/Powerpoint/PureData.hs @@ -6,11 +6,10 @@ module Tests.Writers.Powerpoint.PureData ( pureFileTree import Data.ByteString (ByteString) import Data.ByteString.Base64 import Text.Pandoc.Class -import qualified Data.Map as M import Data.Time.Clock.POSIX pureFileTree :: FileTree -pureFileTree = FileTree $ M.fromList [ ("/fakefs/img/lalune.jpg", imgFileInfo) ] +pureFileTree = insertInFileTree "/fakefs/img/lalune.jpg" imgFileInfo mempty imgFileInfo :: FileInfo imgFileInfo = FileInfo { infoFileMTime = posixSecondsToUTCTime 0 |