diff --git a/app/EpubParser.hs b/app/EpubParser.hs index cd69dab..10eaa09 100644 --- a/app/EpubParser.hs +++ b/app/EpubParser.hs @@ -62,7 +62,6 @@ resolveSpine = do let tags = manifest env let itemRefs = [ idRef | TagOpen "itemref" attrs <- tags, let idRef = lookup "idref" attrs, isJust $ Just idRef ] - -- let files = map (findFileById tags) itemRefs pure $ mapMaybe (findFileById tags) itemRefs findFileById :: [Tag String] -> Maybe String -> Maybe FilePath