32 lines
827 B
Haskell
32 lines
827 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 (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
|