haskell/minio-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Aditya Manthramurthy 2017-11-16 10:58:31 -08:00 committed by GitHub
parent 33a27323f3
commit 3ef237e4d1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
15 changed files with 60 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -44,7 +44,7 @@ stack haddock
### FileUploader.hs
``` haskell
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs --package optparse-applicative --package filepath
-- stack --resolver lts-9.1 runghc --package minio-hs --package optparse-applicative --package filepath
{-# Language OverloadedStrings, ScopedTypeVariables #-}
import Network.Minio

2
examples/BucketExists.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.

4
examples/CopyObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License.
--
{-# Language OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import Control.Monad.Catch (catchIf)

5
examples/FileUploader.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs --package optparse-applicative --package filepath
-- stack --resolver lts-9.1 runghc --package minio-hs --package optparse-applicative --package filepath
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -18,7 +18,8 @@
--
{-# Language OverloadedStrings, ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
import Network.Minio
import Control.Monad.Catch (catchIf)

4
examples/GetObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License.
--
{-# Language OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import Data.Conduit (($$+-))

6
examples/HeadObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,9 +17,9 @@
-- limitations under the License.
--
{-# Language OverloadedStrings #-}
import Network.Minio.S3API
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import Network.Minio.S3API
import Prelude

4
examples/ListBuckets.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License.
--
{-# Language OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import Control.Monad.IO.Class (liftIO)

4
examples/ListIncompleteUploads.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License.
--
{-# Language OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import Data.Conduit (($$))

4
examples/ListObjects.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License.
--
{-# Language OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import qualified Data.Conduit as C

4
examples/Makebucket.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -18,7 +18,7 @@
--
{-# Language OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import Prelude

4
examples/PresignedPutObject.hs
View File

@ -40,7 +40,7 @@ main = do
res <- runMinio minioPlayCI $ do
-- generate a URL with 7 days expiry time
presignedPutObjectURL "my-bucket" "my-object" (7*24*3600) headers
presignedPutObjectUrl "my-bucket" "my-object" (7*24*3600) headers
case res of
Left e -> putStrLn $ "presignedPutObject URL failed." ++ show e
@ -54,6 +54,6 @@ main = do
["curl "] ++ map hdrOpt headers ++
["-T /tmp/myfile", B.concat ["'", url, "'"]]
B.putStrLn $ "The following curl command would use the presigned " ++
putStrLn $ "The following curl command would use the presigned " ++
"URL to upload the file at \"/tmp/myfile\":"
B.putStrLn curlCmd

2
examples/PutObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.

4
examples/RemoveIncompleteUpload.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License.
--
{-# Language OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import Prelude

4
examples/RemoveObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License.
--
{-# Language OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import Prelude

4
examples/Removebucket.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack
-- stack --resolver lts-8.5 runghc --package minio-hs
-- stack --resolver lts-9.1 runghc --package minio-hs
--
-- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -18,7 +18,7 @@
--
{-# Language OverloadedStrings #-}
{-# LANGUAGE OverloadedStrings #-}
import Network.Minio
import Prelude