git.iko.soy/typeable/pandoc
on master help sign in
Use insertInFileTree in powerpoint test.
commitfa79e003b309fababbe70db946f88556bef3198c authorJohn MacFarlane <jgm@berkeley.edu> dateThu 28 Dec 2017, 10:26 (9 years ago) parentddd6a89
1 file changed+1−2
compare with master
unifiedsplit
test/Tests/Writers/Powerpoint/PureData.hs+1−2
test/Tests/Writers/Powerpoint/PureData.hs+1−2
@@ -6,11 +6,10 @@ module Tests.Writers.Powerpoint.PureData ( pureFileTree
66import Data.ByteString (ByteString)
77import Data.ByteString.Base64
88import Text.Pandoc.Class
9−import qualified Data.Map as M
109import Data.Time.Clock.POSIX
1110
1211pureFileTree :: FileTree
13−pureFileTree = FileTree $ M.fromList [ ("/fakefs/img/lalune.jpg", imgFileInfo) ]
12+pureFileTree = insertInFileTree "/fakefs/img/lalune.jpg" imgFileInfo mempty
1413
1514imgFileInfo :: FileInfo
1615imgFileInfo = FileInfo { infoFileMTime = posixSecondsToUTCTime 0