@@ -570,8 +570,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
571 let navMapFormatter :: Int -> String -> String -> [Element] -> Element
571 let navMapFormatter :: Int -> String -> String -> [Element] -> Element
572 navMapFormatter n tit src subs = unode "navPoint" !
572 navMapFormatter n tit src subs = unode "navPoint" !
573− [("id", "navPoint-" ++ show n)
573+ [("id", "navPoint-" ++ show n)] $
574− ,("playOrder", show n)] $
575 [ unode "navLabel" $ unode "text" tit
574 [ unode "navLabel" $ unode "text" tit
576 , unode "content" ! [("src", src)] $ ()
575 , unode "content" ! [("src", src)] $ ()
577 ] ++ subs
576 ] ++ subs