marko/svitak
Watch
1
0
Fork
You've already forked svitak
 1
Code Issues Pull requests Projects Releases Wiki Activity Actions

cleanup

Browse source
This commit is contained in:
Marko Andjelic 2026-01-25 03:08:45 +00:00
commit 609024f30e
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
app/EpubParser.hs
View file

@ -62,7 +62,6 @@ resolveSpine = do
let tags = manifest env let tags = manifest env
let itemRefs = [ idRef | TagOpen "itemref" attrs <- tags, let idRef = lookup "idref" attrs, isJust $ Just idRef ] 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 pure $ mapMaybe (findFileById tags) itemRefs
findFileById :: [Tag String] -> Maybe String -> Maybe FilePath findFileById :: [Tag String] -> Maybe String -> Maybe FilePath