replace tagsoup with scalpel

app/UI.hs

@@ -19,7 +19,9 @@ import qualified GI.Gtk as Gtk
 import qualified GI.Gtk.Enums as GtkEnums
 import qualified GI.WebKit as WebKit
 import Persistence (loadLastRead, saveLastRead)
-import State (AppState (..), ChapterView (..), initialState, prepareView)
+import State (initialState, prepareView)
+import Types (AppState(..), ChapterView(..))
+import Control.Monad (zipWithM)
 
 runApp :: EpubEnv -> IO ()
 runApp env' = do
@@ -72,7 +74,7 @@ runApp env' = do
     -- start eager parse
     _ <- async $ do
       ispine <- runReaderT resolveSpine env'
-      allChapters <- runReaderT (mapM getChapter ispine) env'
+      allChapters <- runReaderT (zipWithM getChapter ispine[0..]) env'
 
       let titles = metaTitles (eMetadata env')
       let rawT = case find (\t -> titleType t == Just "main") titles of