downloadSet :: (MonadConfig m, MonadIO m) => m ()
downloadSet = do
    liftIO $ infoM rootLoggerName "Downloading cards.json..."
    tcfg <- ask
    let atomcfg = liftIO . atomically . readTVar $ tcfg
    url <- jsonURL <$> atomcfg
    folder <- dataFol <$> atomcfg
    r <- liftIO . W.get $ url
    liftIO $ BS.writeFile (folder ++ "cards.json") (r ^. W.responseBody)
    liftIO $ infoM rootLoggerName "Downloaded cards.json"
downloadSet :: (MonadConfig m, MonadIO m) => m ()
downloadSet = do
    liftIO $ infoM rootLoggerName "Downloading cards.json..."
    tcfg <- ask
    let atomcfg = liftIO . atomically . readTVar $ tcfg
    url <- jsonURL <$> atomcfg
    folder <- dataFol <$> atomcfg
    r <- liftIO . W.get $ url
    liftIO $ BS.writeFile (folder ++ "cards.json") (r ^. W.responseBody)
    liftIO $ infoM rootLoggerName "Downloaded cards.json"
downloadSet = do
    liftIO $ infoM rootLoggerName "Downloading cards.json..."
    tcfg <- ask
    let atomcfg = liftIO . atomically . readTVar $ tcfg
    url <- jsonURL <$> atomcfg
    folder <- dataFol <$> atomcfg
    r <- liftIO . W.get $ url
    liftIO $ BS.writeFile (folder ++ "cards.json") (r ^. W.responseBody)
    liftIO $ infoM rootLoggerName "Downloaded cards.json"