From adfc94e352d1a8e377fe137c15a54ace29c2992b Mon Sep 17 00:00:00 2001 From: Marko Andjelic Date: Sun, 25 Jan 2026 04:34:24 +0000 Subject: [PATCH] Minor cleanup --- app/EpubParser.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/app/EpubParser.hs b/app/EpubParser.hs index 9892c84..961615f 100644 --- a/app/EpubParser.hs +++ b/app/EpubParser.hs @@ -11,8 +11,7 @@ module EpubParser , Tag(..) ) where -import Codec.Archive.Zip - ( Archive, findEntryByPath, fromEntry, toArchive ) +import Codec.Archive.Zip ( Archive, findEntryByPath, fromEntry, toArchive ) import qualified Data.ByteString.Lazy as B import qualified Data.Text as T @@ -23,9 +22,7 @@ import Text.HTML.TagSoup (parseTags, Tag(..)) import System.FilePath (takeDirectory, (), normalise) import Data.List (find) --- epub-metadata parse API import Codec.Epub.Parse (getManifest , getSpine) - import qualified Codec.Epub.Data.Manifest as DM import qualified Codec.Epub.Data.Spine as DS @@ -63,8 +60,7 @@ getRootPath (TagOpen "rootfile" attrs : _) = lookup "full-path" attrs getRootPath (_ : xs) = getRootPath xs myEnv :: Archive -> FilePath -> String -> EpubEnv -myEnv arch opfPath xml = - EpubEnv arch xml (takeDirectory opfPath) +myEnv arch opfPath xml = EpubEnv arch xml (takeDirectory opfPath) resolveSpine :: EpubAction [FilePath] resolveSpine = do