Rename example files (#19)

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}]
+-}