From f5bc5a0a4546365972494f79aa5a48fb4d67627a Mon Sep 17 00:00:00 2001
From: Aditya Manthramurthy <donatello@users.noreply.github.com>
Date: Sat, 11 Feb 2017 15:08:38 +0530
Subject: [PATCH] Fix haddock links (Fixes #6) (#13)

---
 src/Network/Minio.hs       |  3 +++
 src/Network/Minio/S3API.hs | 13 +++++++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/src/Network/Minio.hs b/src/Network/Minio.hs
index aa7a8e5..47e4b5a 100644
--- a/src/Network/Minio.hs
+++ b/src/Network/Minio.hs
@@ -23,6 +23,9 @@ module Network.Minio
   , Bucket
   , Object
   , BucketInfo(..)
+  , ObjectInfo(..)
+  , UploadInfo(..)
+  , ListPartInfo(..)
   , UploadId
   , ObjectData(..)
 
diff --git a/src/Network/Minio/S3API.hs b/src/Network/Minio/S3API.hs
index adaaf0c..6b747ca 100644
--- a/src/Network/Minio/S3API.hs
+++ b/src/Network/Minio/S3API.hs
@@ -1,6 +1,7 @@
 module Network.Minio.S3API
   (
-    getLocation
+    Region
+  , getLocation
 
   -- * Listing buckets
   --------------------
@@ -8,6 +9,7 @@ module Network.Minio.S3API
 
   -- * Listing objects
   --------------------
+  , ListObjectsResult
   , listObjects'
 
   -- * Retrieving objects
@@ -18,15 +20,22 @@ module Network.Minio.S3API
   -- * Creating buckets and objects
   ---------------------------------
   , putBucket
+  , ETag
   , putObjectSingle
 
   -- * Multipart Upload APIs
   --------------------------
+  , UploadId
+  , PartInfo
+  , Payload(..)
+  , PartNumber
   , newMultipartUpload
   , putObjectPart
   , completeMultipartUpload
   , abortMultipartUpload
+  , ListUploadsResult
   , listIncompleteUploads'
+  , ListPartsResult
   , listIncompleteParts'
 
   -- * Deletion APIs
@@ -57,7 +66,7 @@ getService = do
   parseListBuckets $ NC.responseBody resp
 
 -- | Fetch bucket location (region)
-getLocation :: Bucket -> Minio Text
+getLocation :: Bucket -> Minio Region
 getLocation bucket = do
   resp <- executeRequest $ def { riBucket = Just bucket
                                , riQueryParams = [("location", Nothing)]