--
-- Simple image paster
-- Uploads given image file to image hosting site
--
-- (c) 2010, 2011 Yuri baltazar Bochkarev
--

import System.IO
import System.Exit
import System.Environment

import qualified Runner

main :: IO ()
main = do
  args <- getArgs
  result <- Runner.mainRunner args
  case result of
    Nothing -> exitFailure
    Just link -> putStrLn link >> exitSuccess