module Network.Minio
  (

    D.ConnectInfo(..)
  , D.defaultConnectInfo
  , D.connect

  , D.Minio
  , D.runMinio

  -- * Error handling
  -----------------------
  -- | Test
  , D.MinioErr(..)
  , D.MErrV(..)

  -- * Data Types
  ----------------
  -- | Data types representing various object store concepts.
  , D.Bucket
  , D.Object
  , D.BucketInfo(..)
  , D.UploadId

  -- * Bucket and Object Operations
  ---------------------------------
  , S.getService
  , S.getLocation

  , fGetObject
  , fPutObject
  ) where

{-
This module exports the high-level Minio API for object storage.
-}

import qualified Network.Minio.S3API as S

import qualified Network.Minio.Data as D

import qualified System.IO as IO
import qualified Data.Conduit as C
import qualified Control.Monad.Trans.Resource as R
import qualified Data.Conduit.Binary as CB

import Lib.Prelude

import Network.Minio.Data
import Network.Minio.S3API
import Network.Minio.Utils

-- | Fetch the object and write it to the given file safely. The
-- object is first written to a temporary file in the same directory
-- and then moved to the given path.
fGetObject :: Bucket -> Object -> FilePath -> Minio ()
fGetObject bucket object fp = do
  (_, src) <- getObject bucket object [] []
  src C.$$+- CB.sinkFileCautious fp

-- | Upload the given file to the given object.
fPutObject :: Bucket -> Object -> FilePath -> Minio ()
fPutObject bucket object fp = do
  (releaseKey, h) <- allocateReadFile fp

  size <- liftIO $ IO.hFileSize h
  putObject bucket object [] 0 (fromIntegral size) h

  -- release file handle
  R.release releaseKey