diff --git a/src/Network/Minio/AdminAPI.hs b/src/Network/Minio/AdminAPI.hs index ac80a2e..075b6a9 100644 --- a/src/Network/Minio/AdminAPI.hs +++ b/src/Network/Minio/AdminAPI.hs @@ -15,7 +15,11 @@ -- module Network.Minio.AdminAPI - ( ErasureSets(..) + ( -- * Minio Admin API + -------------------- + -- | Provides Minio admin API and related types. It is in + -- experimental state. + ErasureSets(..) , ErasureInfo(..) , Backend(..) , ConnStats(..) @@ -203,6 +207,9 @@ instance FromJSON ServerInfo where adminPath :: ByteString adminPath = "/minio/admin" +-- | Fetches information for all cluster nodes, such as server +-- properties, storage information, network statistics, etc. + getServerInfo :: Minio [ServerInfo] getServerInfo = do rsp <- executeAdminRequest AdminReqInfo { ariMethod = HT.methodGet