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 (runResourceT)
import qualified Data.Conduit as C
import qualified Data.Conduit.List as CL
import qualified Network.HTTP.Conduit as NC

main :: IO ()
main = do
  mc <- connect defaultConnectInfo
  t <- runResourceT $ runMinio mc $ do
    res <- getService
    liftIO $ print $ NC.responseStatus res
    liftIO $ print $ NC.responseHeaders res
    --    liftIO print $ NC.responseHeaders <$> res
    -- let bodyE = NC.responseBody <$> res
    -- case bodyE of
    --   Left x -> print x
    --   Right body -> body C.$$+- CL.mapM_ putStrLn
    -- body <- NC.responseBody <$> res
    NC.responseBody res C.$$+- CL.mapM_ putStrLn

  print "Hello"
  print t