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 ### FileUploader.hs
``` haskell ``` haskell
#!/usr/bin/env stack #!/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 #-} {-# Language OverloadedStrings, ScopedTypeVariables #-}
import Network.Minio import Network.Minio

2
examples/BucketExists.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.

4
examples/CopyObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License. -- limitations under the License.
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio import Network.Minio
import Control.Monad.Catch (catchIf) import Control.Monad.Catch (catchIf)

5
examples/FileUploader.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -18,7 +18,8 @@
-- --
{-# Language OverloadedStrings, ScopedTypeVariables #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
import Network.Minio import Network.Minio
import Control.Monad.Catch (catchIf) import Control.Monad.Catch (catchIf)

4
examples/GetObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License. -- limitations under the License.
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio import Network.Minio
import Data.Conduit (($$+-)) import Data.Conduit (($$+-))

6
examples/HeadObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,9 +17,9 @@
-- limitations under the License. -- limitations under the License.
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio.S3API
import Network.Minio import Network.Minio
import Network.Minio.S3API
import Prelude import Prelude

4
examples/ListBuckets.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License. -- limitations under the License.
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio import Network.Minio
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)

4
examples/ListIncompleteUploads.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License. -- limitations under the License.
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio import Network.Minio
import Data.Conduit (($$)) import Data.Conduit (($$))

4
examples/ListObjects.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License. -- limitations under the License.
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio import Network.Minio
import qualified Data.Conduit as C import qualified Data.Conduit as C

4
examples/Makebucket.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -18,7 +18,7 @@
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio import Network.Minio
import Prelude import Prelude

4
examples/PresignedPutObject.hs
View File

@ -40,7 +40,7 @@ main = do
res <- runMinio minioPlayCI $ do res <- runMinio minioPlayCI $ do
-- generate a URL with 7 days expiry time -- 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 case res of
Left e -> putStrLn $ "presignedPutObject URL failed." ++ show e Left e -> putStrLn $ "presignedPutObject URL failed." ++ show e
@ -54,6 +54,6 @@ main = do
["curl "] ++ map hdrOpt headers ++ ["curl "] ++ map hdrOpt headers ++
["-T /tmp/myfile", B.concat ["'", url, "'"]] ["-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\":" "URL to upload the file at \"/tmp/myfile\":"
B.putStrLn curlCmd B.putStrLn curlCmd

2
examples/PutObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.

4
examples/RemoveIncompleteUpload.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License. -- limitations under the License.
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio import Network.Minio
import Prelude import Prelude

4
examples/RemoveObject.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -17,7 +17,7 @@
-- limitations under the License. -- limitations under the License.
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio import Network.Minio
import Prelude import Prelude

4
examples/Removebucket.hs
View File

@ -1,5 +1,5 @@
#!/usr/bin/env stack #!/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. -- Minio Haskell SDK, (C) 2017 Minio, Inc.
@ -18,7 +18,7 @@
-- --
{-# Language OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
import Network.Minio import Network.Minio
import Prelude import Prelude