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

remove redundant imports

Browse source
This commit is contained in:
Marko Andjelic 2026-03-23 01:42:44 +00:00
commit dcf7ce2971
Signed by: marko
GPG key ID: 9C5E99C8C682FB59
3 changed files with 5 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

5
app/EpubParser.hs
View file

@ -18,7 +18,7 @@ import Codec.Epub.Parse (getManifest, getMetadata, getSpine)
import Control.Applicative ((<|>))
import Control.Monad (guard)
import Control.Monad.Except (runExceptT, ExceptT, throwError)
import Control.Monad.Reader (MonadReader (ask), liftIO, runReaderT)
import Control.Monad.Reader (MonadReader (ask), runReaderT)
import Control.Monad.Trans (lift)
import qualified Data.ByteString.Base64 as B64
import qualified Data.ByteString.Lazy as B
@ -29,9 +29,8 @@ import qualified Data.Text.Encoding as TE
import System.FilePath (normalise, takeDirectory, (</>))
import Text.HTML.Scalpel (Scraper, ScraperT, anySelector, attr, chroot, chroots, html, innerHTML, scrapeStringLike, text)
import Types (Chapter (..), EpubAction, EpubEnv (..), InternalPath(..), ChapterIndex(..), BookInfo(..), EpubType(..))
import Navigation (navFinder, lndmkScraper, lndmkmap, getLandmarks)
import Navigation (navFinder, lndmkmap, getLandmarks)
import Codec.Epub.Parse (getPackage)
import Codec.Epub.Data.Metadata (metaTitles, titleText, titleType, Creator (creatorText), Metadata (metaCreators))
import Codec.Epub.Data.Package (Package(..))
import qualified Codec.Epub.Data.Metadata as DMeta

4
app/Navigation.hs
View file

@ -8,7 +8,7 @@ module Navigation
)
where
import Text.HTML.Scalpel (Scraper, attr, (@:), (@=), chroot, chroots, text, match, scrapeStringLike, scrape)
import Text.HTML.Scalpel (Scraper, attr, (@:), (@=), chroot, chroots, text, match, scrapeStringLike)
import Types (NavItem(..), EpubType (..), InternalPath(..), EpubEnv(..))
import Data.Maybe (fromMaybe)
import qualified Data.ByteString.Lazy as B
@ -17,7 +17,7 @@ import Control.Monad (guard)
import Codec.Archive.Zip
import qualified Data.Text as T
import qualified Data.Text.Encoding as TE
import System.FilePath (normalise, takeDirectory, (</>))
import System.FilePath (normalise, (</>))
-- ------------------------------------------------------------
-- EPub 3 navigation

6
app/UI.hs
View file

@ -2,15 +2,12 @@
{-# LANGUAGE OverloadedStrings #-}
module UI (runApp) where
import Codec.Epub.Data.Metadata (metaTitles, titleText, titleType)
import Control.Concurrent.Async (async)
import Control.Concurrent.STM (TVar, atomically, modifyTVar, newTVarIO, readTVar)
import Control.Monad (zipWithM)
import Control.Monad.Reader (runReaderT)
import Data.GI.Base (AttrOp (..), on)
import Data.List (find)
import qualified Data.Text as T
import EpubParser (EpubEnv (..), getChapter, resolveSpine)
import EpubParser (EpubEnv (..))
import qualified GI.GLib as GLib
import qualified GI.GLib.Constants as GLibConst
import qualified GI.Gdk as Gdk
@ -20,7 +17,6 @@ import qualified GI.Gtk.Enums as GtkEnums
import qualified GI.WebKit as WebKit
import Persistence (loadLastRead, saveLastRead)
import State (initialState, prepareView)
import Text.HTML.Scalpel (Scraper, attr, chroots, text)
import Types (AppState (..), ChapterView (..), UserAction (..), ChapterIndex(..), BookInfo (..))
updateUI :: Gtk.ApplicationWindow -> WebKit.WebView -> ChapterView -> ChapterIndex -> Int -> IO ()