文件存放目录
    -> DelayedYamlLoader a
    -> m a
runDelayedYamlLoaderExc base_dir = runDelayedYamlLoaderExcL (base_dir :| [])


findFirstMatchedFile :: (Functor t, Foldable t)
                     => t FilePath  -
runDelayedYamlLoader :: (MonadIO m) =>
    FilePath    -- ^ 消息文件存放目录
    -> DelayedYamlLoader a
    -> m (Either String a)
runDelayedYamlLoader base_dir = runDelayedYamlLoaderL (base_dir :| [])
runDelayedYamlLoader base_dir = runDelayedYamlLoaderL (base_dir :| [])