examples/PutObject.hs · typeable/minio-hs

git.iko.soy/typeable/minio-hs

on master help sign in

typeable/minio-hs/examples/PutObject.hs

51 lines 1.7 kB history raw

1#!/usr/bin/env stack

2-- stack --resolver lts-14.11 runghc --package minio-hs

4--

6--

7-- Licensed under the Apache License, Version 2.0 (the "License");

8-- you may not use this file except in compliance with the License.

9-- You may obtain a copy of the License at

10--

11-- http://www.apache.org/licenses/LICENSE-2.0

12--

13-- Unless required by applicable law or agreed to in writing, software

14-- distributed under the License is distributed on an "AS IS" BASIS,

15-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

16-- See the License for the specific language governing permissions and

17-- limitations under the License.

18--

19{-# LANGUAGE OverloadedStrings #-}

21import qualified Data.Conduit.Combinators as CC

22import Network.Minio

23import Prelude

25-- | The following example uses minio's play server at

26-- https://play.min.io. The endpoint and associated

27-- credentials are provided via the libary constant,

28--

29-- > minioPlayCI :: ConnectInfo

30main :: IO ()

31main = do

32 let bucket = "test"

33 object = "obj"

34 localFile = "/etc/lsb-release"

35 kb15 = 15 * 1024

37 -- Eg 1. Upload a stream of repeating "a" using putObject with default options.

38 res1 <-

39 runMinio minioPlayCI $

40 putObject bucket object (CC.repeat "a") (Just kb15) defaultPutObjectOptions

41 case res1 of

42 Left e -> putStrLn $ "putObject failed." ++ show e

43 Right () -> putStrLn "putObject succeeded."

45 -- Eg 2. Upload a file using fPutObject with default options.

46 res2 <-

47 runMinio minioPlayCI $

48 fPutObject bucket object localFile defaultPutObjectOptions

49 case res2 of

50 Left e -> putStrLn $ "fPutObject failed." ++ show e

51 Right () -> putStrLn "fPutObject succeeded."