17 lines
351 B
Haskell
17 lines
351 B
Haskell
module Main where
|
|
|
|
-- import qualified Network.HTTP.Conduit as NC
|
|
|
|
import Protolude
|
|
|
|
import Network.Minio.Data
|
|
|
|
import Network.Minio.API
|
|
import Control.Monad.Trans.Resource (MonadResource, ResourceT, runResourceT)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
mc <- connect defaultConnectInfo
|
|
res <- runResourceT $ runMinio mc $ getService
|
|
print $ rpiStatus <$> res
|