From fa79e003b309fababbe70db946f88556bef3198c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 28 Dec 2017 10:26:54 -0800
Subject: Use insertInFileTree in powerpoint test.
---
test/Tests/Writers/Powerpoint/PureData.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
(limited to 'test')
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
--
cgit v1.2.3