run :: Args.Options -> IO ()
run opts = do
  state <- createState opts Nothing Nothing
  case state of
    Nothing -> putStrLn "Could not create state!"
    Just s -> dispatch s opts
run :: Args.Options -> IO ()
run opts = do
  state <- createState opts Nothing Nothing
  case state of
    Nothing -> putStrLn "Could not create state!"
    Just s -> dispatch s opts
run opts = do
  state <- createState opts Nothing Nothing
  case state of
    Nothing -> putStrLn "Could not create state!"
    Just s -> dispatch s opts