hashirama/svitak
Watch
1
0
Fork
You've already forked svitak
 0
forked from marko/svitak
Code Pull requests Activity

compressed function rewrite

Browse source
This commit is contained in:
Marko Andjelic 2026-02-11 03:50:42 +00:00
commit 96924df78f
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/EpubParser.hs
View file

@ -61,9 +61,7 @@ openEpub path = do
getOpfPath :: Archive -> Maybe String getOpfPath :: Archive -> Maybe String
getOpfPath arch = getOpfPath arch =
case findEntryByPath "META-INF/container.xml" arch of maybe Nothing (\e -> getRootPath (TE.decodeUtf8 . B.toStrict $ fromEntry e)) (findEntryByPath "META-INF/container.xml" arch)
Nothing -> Nothing
Just entry -> getRootPath (TE.decodeUtf8 . B.toStrict $ fromEntry entry)
getRootPath :: T.Text -> Maybe String getRootPath :: T.Text -> Maybe String
getRootPath rawhtml = getRootPath rawhtml =