svgone-0.1.0.0: app/Main.hs

module Main (main) where

import qualified Data.Text.IO as T
import Svgone
import System.Environment

main :: IO ()
main =
    getArgs >>= \case
        [inF, outF] -> do
            in' <- T.readFile inF
            run allPluginsWithDefaults inF in' outF
        _ -> error "bad args"