This commit is contained in:
Marko Andjelic 2026-01-25 03:08:45 +00:00
commit 609024f30e

View file

@ -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