module Main where

import EpubParser (openEpub)
import System.Environment (getArgs)
import UI (runApp)

main :: IO ()
main = do
  args <- getArgs
  case args of
    [path] -> do
      result <- openEpub path
      case result of
        Left err -> putStrLn $ "Error: " ++ err
        Right env -> runApp env
    _ -> putStrLn "Usage: svitak <file.epub>"