From 609024f30ed3d9a3d9c266a1517675305afde82c Mon Sep 17 00:00:00 2001 From: Marko Andjelic Date: Sun, 25 Jan 2026 03:08:45 +0000 Subject: [PATCH] cleanup --- app/EpubParser.hs | 1 - 1 file changed, 1 deletion(-) 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