@@ -11,7 +11,6 @@ module Text.Pandoc.Readers.EPUB
1111import Text.XML.Light
1212import Text.Pandoc.Definition hiding (Attr)
1313import Text.Pandoc.Walk (walk, query)
14−import Text.Pandoc.Generic(bottomUp)
1514import Text.Pandoc.Readers.HTML (readHtml)
1615import Text.Pandoc.Options ( ReaderOptions(..), readerTrace)
1716import Text.Pandoc.Shared (escapeURI, collapseFilePath, addMetaField)
@@ -59,7 +58,7 @@ archiveToEPUB os archive = do
5958 spine <- parseSpine items content
6059 let escapedSpine = map (escapeURI . takeFileName . fst) spine
6160 Pandoc _ bs <-
62− foldM' (\a b -> ((a <>) . bottomUp (prependHash escapedSpine))
61+ foldM' (\a b -> ((a <>) . walk (prependHash escapedSpine))
6362 `liftM` parseSpineElem root b) mempty spine
6463 let ast = coverDoc <> (Pandoc meta bs)
6564 let mediaBag = fetchImages (M.elems items) root archive ast