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