3ef237e · typeable/minio-hs

git.iko.soy/typeable/minio-hs

Update examples to use stackage version used by library (#78)

commit3ef237e4d10da17dc3e610f12bf8d18530156209 authorAditya Manthramurthy <donatello@users.noreply.github.com> dateThu 16 Nov 2017, 10:58 (9 years ago) parent33a2732

15 files changed+60−59

compare with master

unifiedsplit

README.md+1−1 examples/BucketExists.hs+1−1 examples/CopyObject.hs+4−4 examples/FileUploader.hs+12−11 examples/GetObject.hs+7−7 examples/HeadObject.hs+6−6 examples/ListBuckets.hs+5−5 examples/ListIncompleteUploads.hs+6−6 examples/ListObjects.hs+3−3 examples/Makebucket.hs+2−2 examples/PresignedPutObject.hs+2−2 examples/PutObject.hs+1−1 examples/RemoveIncompleteUpload.hs+4−4 examples/RemoveObject.hs+4−4 examples/Removebucket.hs+2−2

README.md+1−1

@@ -44,7 +44,7 @@ stack haddock

4444### FileUploader.hs

4545``` haskell

4646#!/usr/bin/env stack

47−-- stack --resolver lts-8.5 runghc --package minio-hs --package optparse-applicative --package filepath

47+-- stack --resolver lts-9.1 runghc --package minio-hs --package optparse-applicative --package filepath

4848

4949{-# Language OverloadedStrings, ScopedTypeVariables #-}

5050import Network.Minio

examples/BucketExists.hs+1−1

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

examples/CopyObject.hs+4−4

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -17,11 +17,11 @@

1717-- limitations under the License.

1818--

1919

20−{-# Language OverloadedStrings #-}

20+{-# LANGUAGE OverloadedStrings #-}

2121import Network.Minio

2222

2323import Control.Monad.Catch (catchIf)

24−import qualified Data.Text as T

24+import qualified Data.Text as T

2525import Prelude

2626

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

@@ -55,5 +55,5 @@ main = do

5555 }

5656

5757 case res1 of

58− Left e -> putStrLn $ "copyObject failed." ++ (show e)

58+ Left e -> putStrLn $ "copyObject failed." ++ (show e)

5959 Right () -> putStrLn "copyObject succeeded."

examples/FileUploader.hs+12−11

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs --package optparse-applicative --package filepath

2+-- stack --resolver lts-9.1 runghc --package minio-hs --package optparse-applicative --package filepath

44--

@@ -18,16 +18,17 @@

1818--

1919

2020

21−{-# Language OverloadedStrings, ScopedTypeVariables #-}

22−import Network.Minio

21+{-# LANGUAGE OverloadedStrings #-}

22+{-# LANGUAGE ScopedTypeVariables #-}

23+import Network.Minio

2324

24−import Control.Monad.Catch (catchIf)

25−import Control.Monad.IO.Class (liftIO)

26−import Data.Monoid ((<>))

27−import Data.Text (pack)

28−import Options.Applicative

29−import Prelude

30−import System.FilePath.Posix

25+import Control.Monad.Catch (catchIf)

26+import Control.Monad.IO.Class (liftIO)

27+import Data.Monoid ((<>))

28+import Data.Text (pack)

29+import Options.Applicative

30+import Prelude

31+import System.FilePath.Posix

3132

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

3334-- https://play.minio.io:9000. The endpoint and associated

@@ -69,5 +70,5 @@ main = do

6970 fPutObject bucket object filepath

7071

7172 case res of

72− Left e -> putStrLn $ "file upload failed due to " ++ (show e)

73+ Left e -> putStrLn $ "file upload failed due to " ++ (show e)

7374 Right () -> putStrLn "file upload succeeded."

examples/GetObject.hs+7−7

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -17,12 +17,12 @@

1717-- limitations under the License.

1818--

1919

20−{-# Language OverloadedStrings #-}

21−import Network.Minio

20+{-# LANGUAGE OverloadedStrings #-}

21+import Network.Minio

2222

23−import Data.Conduit (($$+-))

24−import Data.Conduit.Binary (sinkLbs)

25−import Prelude

23+import Data.Conduit (($$+-))

24+import Data.Conduit.Binary (sinkLbs)

25+import Prelude

2626

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

2828-- https://play.minio.io:9000. The endpoint and associated

@@ -41,5 +41,5 @@ main = do

4141 (src $$+- sinkLbs)

4242

4343 case res of

44− Left e -> putStrLn $ "getObject failed." ++ (show e)

44+ Left e -> putStrLn $ "getObject failed." ++ (show e)

4545 Right _ -> putStrLn "getObject succeeded."

examples/HeadObject.hs+6−6

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -17,11 +17,11 @@

1717-- limitations under the License.

1818--

1919

20−{-# Language OverloadedStrings #-}

21−import Network.Minio.S3API

22−import Network.Minio

20+{-# LANGUAGE OverloadedStrings #-}

21+import Network.Minio

22+import Network.Minio.S3API

2323

24−import Prelude

24+import Prelude

2525

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

2727-- https://play.minio.io:9000. The endpoint and associated

@@ -39,5 +39,5 @@ main = do

3939 headObject bucket object

4040

4141 case res of

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

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

4343 Right objInfo -> putStrLn $ "headObject succeeded." ++ show objInfo

examples/ListBuckets.hs+5−5

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -17,11 +17,11 @@

1717-- limitations under the License.

1818--

1919

20−{-# Language OverloadedStrings #-}

21−import Network.Minio

20+{-# LANGUAGE OverloadedStrings #-}

21+import Network.Minio

2222

23−import Control.Monad.IO.Class (liftIO)

24−import Prelude

23+import Control.Monad.IO.Class (liftIO)

24+import Prelude

2525

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

2727-- https://play.minio.io:9000. The endpoint and associated

examples/ListIncompleteUploads.hs+6−6

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -17,12 +17,12 @@

1717-- limitations under the License.

1818--

1919

20−{-# Language OverloadedStrings #-}

21−import Network.Minio

20+{-# LANGUAGE OverloadedStrings #-}

21+import Network.Minio

2222

23−import Data.Conduit (($$))

24−import Data.Conduit.Combinators (sinkList)

25−import Prelude

23+import Data.Conduit (($$))

24+import Data.Conduit.Combinators (sinkList)

25+import Prelude

2626

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

2828-- https://play.minio.io:9000. The endpoint and associated

examples/ListObjects.hs+3−3

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -17,10 +17,10 @@

1717-- limitations under the License.

1818--

1919

20−{-# Language OverloadedStrings #-}

20+{-# LANGUAGE OverloadedStrings #-}

2121import Network.Minio

2222

23−import qualified Data.Conduit as C

23+import qualified Data.Conduit as C

2424import qualified Data.Conduit.Combinators as CC

2525import Prelude

2626

examples/Makebucket.hs+2−2

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -18,7 +18,7 @@

1818--

1919

2020

21−{-# Language OverloadedStrings #-}

21+{-# LANGUAGE OverloadedStrings #-}

2222import Network.Minio

2323

2424import Prelude

examples/PresignedPutObject.hs+2−2

@@ -40,7 +40,7 @@ main = do

4040 res <- runMinio minioPlayCI $ do

4141

4242 -- generate a URL with 7 days expiry time

43− presignedPutObjectURL "my-bucket" "my-object" (7*24*3600) headers

43+ presignedPutObjectUrl "my-bucket" "my-object" (7*24*3600) headers

4444

4545 case res of

4646 Left e -> putStrLn $ "presignedPutObject URL failed." ++ show e

@@ -54,6 +54,6 @@ main = do

5454 ["curl "] ++ map hdrOpt headers ++

5555 ["-T /tmp/myfile", B.concat ["'", url, "'"]]

5656

57− B.putStrLn $ "The following curl command would use the presigned " ++

57+ putStrLn $ "The following curl command would use the presigned " ++

5858 "URL to upload the file at \"/tmp/myfile\":"

5959 B.putStrLn curlCmd

examples/PutObject.hs+1−1

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

examples/RemoveIncompleteUpload.hs+4−4

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -17,10 +17,10 @@

1717-- limitations under the License.

1818--

1919

20−{-# Language OverloadedStrings #-}

21−import Network.Minio

20+{-# LANGUAGE OverloadedStrings #-}

21+import Network.Minio

2222

23−import Prelude

23+import Prelude

2424

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

2626-- https://play.minio.io:9000. The endpoint and associated

examples/RemoveObject.hs+4−4

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -17,10 +17,10 @@

1717-- limitations under the License.

1818--

1919

20−{-# Language OverloadedStrings #-}

20+{-# LANGUAGE OverloadedStrings #-}

2121

22−import Network.Minio

23−import Prelude

22+import Network.Minio

23+import Prelude

2424

2525main :: IO ()

2626main = do

examples/Removebucket.hs+2−2

@@ -1,5 +1,5 @@

11#!/usr/bin/env stack

2−-- stack --resolver lts-8.5 runghc --package minio-hs

2+-- stack --resolver lts-9.1 runghc --package minio-hs

44--

@@ -18,7 +18,7 @@

1818--

1919

2020

21−{-# Language OverloadedStrings #-}

21+{-# LANGUAGE OverloadedStrings #-}

2222import Network.Minio

2323

2424import Prelude