getBaseUrlArg :: IO String
getBaseUrlArg = do
  args <- getArgs
  case args of
    (arg:[]) -> return arg
    _ -> error "Base url arg not passed"
getBaseUrlArg :: IO String
getBaseUrlArg = do
  args <- getArgs
  case args of
    (arg:[]) -> return arg
    _ -> error "Base url arg not passed"
getBaseUrlArg = do
  args <- getArgs
  case args of
    (arg:[]) -> return arg
    _ -> error "Base url arg not passed"