
module Main ( main ) where

import Graphics.UI.SDL as SDL
import System.Environment (getArgs)

import Gui
import Graphics.Bling.IO.RenderJob

main :: IO ()
main = SDL.withInit [InitEverything] $ do
   fname <- fmap head getArgs
   parseJob fname >>= \ result ->
      case result of
           (Left e) -> putStrLn $ show e
           (Right (job, renderer)) -> renderWithPreview renderer job



module Main ( main ) where

import Graphics.UI.SDL as SDL
import System.Environment (getArgs)

import Gui
import Graphics.Bling.IO.RenderJob

main :: IO ()
main = SDL.withInit [InitEverything] $ do
   fname <- fmap head getArgs
   parseJob fname >>= \ result ->
      case result of
           (Left e) -> putStrLn $ show e
           (Right (job, renderer)) -> renderWithPreview renderer job

