summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-12-28 10:26:54 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2017-12-28 10:26:54 -0800
commitfa79e003b309fababbe70db946f88556bef3198c (patch)
tree079aebfb0a2884d7cfbc48ed0f502c7ecf66f7e2
parentddd6a892470181b321ac2f80ffb76809f15419c8 (diff)
Use insertInFileTree in powerpoint test.
-rw-r--r--test/Tests/Writers/Powerpoint/PureData.hs3
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