forked from marko/svitak
16 lines
355 B
Haskell
16 lines
355 B
Haskell
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>"
|