From 8044a02129f292bfe937cdfe53d2bacb2f1fb7b2 Mon Sep 17 00:00:00 2001
From: Aditya Manthramurthy <donatello@users.noreply.github.com>
Date: Thu, 2 Mar 2017 12:17:39 +0530
Subject: [PATCH] Rename example files (#19)

---
 examples/{getObject.hs => GetObject.hs}       |  0
 examples/{listBuckets.hs => ListBuckets.hs}   |  0
 examples/ListIncompleteParts.hs               | 37 +++++++++++++++++++
 ...eteUploads.hs => ListIncompleteUploads.hs} |  0
 examples/{listObjects.hs => ListObjects.hs}   |  0
 examples/{makebucket.hs => Makebucket.hs}     |  0
 examples/{putObject.hs => PutObject.hs}       |  0
 examples/{removebucket.hs => Removebucket.hs} |  0
 8 files changed, 37 insertions(+)
 rename examples/{getObject.hs => GetObject.hs} (100%)
 rename examples/{listBuckets.hs => ListBuckets.hs} (100%)
 create mode 100755 examples/ListIncompleteParts.hs
 rename examples/{listIncompleteUploads.hs => ListIncompleteUploads.hs} (100%)
 rename examples/{listObjects.hs => ListObjects.hs} (100%)
 rename examples/{makebucket.hs => Makebucket.hs} (100%)
 rename examples/{putObject.hs => PutObject.hs} (100%)
 rename examples/{removebucket.hs => Removebucket.hs} (100%)

diff --git a/examples/getObject.hs b/examples/GetObject.hs
similarity index 100%
rename from examples/getObject.hs
rename to examples/GetObject.hs
diff --git a/examples/listBuckets.hs b/examples/ListBuckets.hs
similarity index 100%
rename from examples/listBuckets.hs
rename to examples/ListBuckets.hs
diff --git a/examples/ListIncompleteParts.hs b/examples/ListIncompleteParts.hs
new file mode 100755
index 0000000..8031961
--- /dev/null
+++ b/examples/ListIncompleteParts.hs
@@ -0,0 +1,37 @@
+#!/usr/bin/env stack
+-- stack --resolver lts-6.27 runghc --package minio-hs
+
+{-# Language OverloadedStrings #-}
+import           Network.Minio
+
+import qualified Data.Conduit as C
+import qualified Data.Conduit.Combinators as CC
+import           Data.Default (Default(..))
+import           Prelude
+
+
+-- | The following example uses minio's play server at
+-- https://play.minio.io:9000.  The endpoint and associated
+-- credentials are provided via the libary constant,
+--
+-- > minioPlayCI :: ConnectInfo
+--
+
+main :: IO ()
+main = do
+  let
+    bucket = "test"
+    object = "multipartObj"
+    uid = "0ff9ccb9-d7ff-4def-9a98-571abefd7e2a"
+
+  res <- runResourceT $ runMinio def $ do
+    listIncompleteParts bucket object uid C.$$ CC.sinkList
+
+  print res
+
+  {-
+
+    Following is the output of the above program on a local Minio server.
+
+    Right [ListPartInfo {piNumber = 2, piETag = "\"62876a639b739ffb7f733a7cb976ba6a\"", piSize = 17731794, piModTime = 2017-02-10 12:19:05.175 UTC}]
+-}
diff --git a/examples/listIncompleteUploads.hs b/examples/ListIncompleteUploads.hs
similarity index 100%
rename from examples/listIncompleteUploads.hs
rename to examples/ListIncompleteUploads.hs
diff --git a/examples/listObjects.hs b/examples/ListObjects.hs
similarity index 100%
rename from examples/listObjects.hs
rename to examples/ListObjects.hs
diff --git a/examples/makebucket.hs b/examples/Makebucket.hs
similarity index 100%
rename from examples/makebucket.hs
rename to examples/Makebucket.hs
diff --git a/examples/putObject.hs b/examples/PutObject.hs
similarity index 100%
rename from examples/putObject.hs
rename to examples/PutObject.hs
diff --git a/examples/removebucket.hs b/examples/Removebucket.hs
similarity index 100%
rename from examples/removebucket.hs
rename to examples/Removebucket.hs