git.iko.soy/typeable/pandoc
on master help sign in
Use insertInFileTree in powerpoint test.
fa79e00John MacFarlane
test/Tests/Writers/Powerpoint/PureData.hs+1−2
compare with master
unifiedsplit
@@ -6,11 +6,10 @@ module Tests.Writers.Powerpoint.PureData ( pureFileTree
6import Data.ByteString (ByteString)
6import Data.ByteString (ByteString)
7import Data.ByteString.Base64
7import Data.ByteString.Base64
8import Text.Pandoc.Class
8import Text.Pandoc.Class
9−import qualified Data.Map as M
10import Data.Time.Clock.POSIX
9import Data.Time.Clock.POSIX
11
10
12pureFileTree :: FileTree
11pureFileTree :: FileTree
13−pureFileTree = FileTree $ M.fromList [ ("/fakefs/img/lalune.jpg", imgFileInfo) ]
12+pureFileTree = insertInFileTree "/fakefs/img/lalune.jpg" imgFileInfo mempty
14
13
15imgFileInfo :: FileInfo
14imgFileInfo :: FileInfo
16imgFileInfo = FileInfo { infoFileMTime = posixSecondsToUTCTime 0
15imgFileInfo = FileInfo { infoFileMTime = posixSecondsToUTCTime 0