main :: IO ()
main = withManagerSettings tlsManagerSettings $ \mgr -> liftIO getArgs >>= \case
    [index, url] -> storeElasticsearch url index mgr
    _            -> liftIO $ putStrLn "USAGE: main INDEX ELASTICSEARCH_URL"
main :: IO ()
main = withManagerSettings tlsManagerSettings $ \mgr -> liftIO getArgs >>= \case
    [index, url] -> storeElasticsearch url index mgr
    _            -> liftIO $ putStrLn "USAGE: main INDEX ELASTICSEARCH_URL"
main = withManagerSettings tlsManagerSettings $ \mgr -> liftIO getArgs >>= \case
    [index, url] -> storeElasticsearch url index mgr
    _            -> liftIO $ putStrLn "USAGE: main INDEX ELASTICSEARCH_URL"