minio-hs
A Minio Haskell Library for Amazon S3 compatible cloud storage.
https://github.com/minio/minio-hs#readme
| Version on this page: | 1.0.1 |
| LTS Haskell 21.25: | 1.7.0 |
| Stackage Nightly 2023-06-21: | 1.7.0 |
| Latest on Hackage: | 1.7.0 |
Maintained by [email protected]
This version can be pinned in stack with:
minio-hs-1.0.1@sha256:e87126e1ee06cd7fc6d29f81cd43e59efe70da76db9817ea90dbc9f38904a250,8834Module documentation for 1.0.1
- Network
Depends on 24 packages(full list with versions):
Minio Client SDK for Haskell 
The Minio Haskell Client SDK provides simple APIs to access Minio and Amazon S3 compatible object storage server.
Minimum Requirements
- The Haskell stack
Installation
git clone https://github.com/minio/minio-hs.git
cd minio-hs/
stack install
Tests can be run with:
stack test
A section of the tests use the remote Minio Play server at
https://play.minio.io:9000 by default. For library development,
using this remote server maybe slow. To run the tests against a
locally running Minio live server at http://localhost:9000, just set
the environment MINIO_LOCAL to any value (and unset it to switch
back to Play).
Documentation can be locally built with:
stack haddock
Quick-Start Example - File Uploader
FileUploader.hs
#!/usr/bin/env stack
-- stack --resolver lts-9.1 runghc --package minio-hs --package optparse-applicative --package filepath
{-# Language OverloadedStrings, ScopedTypeVariables #-}
import Network.Minio
import Control.Monad.Catch (catchIf)
import Control.Monad.IO.Class (liftIO)
import Data.Monoid ((<>))
import Data.Text (pack)
import Options.Applicative
import Prelude
import System.FilePath.Posix
-- | 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
--
-- optparse-applicative package based command-line parsing.
fileNameArgs :: Parser FilePath
fileNameArgs = strArgument
(metavar "FILENAME"
<> help "Name of file to upload to AWS S3 or a Minio server")
cmdParser = info
(helper <*> fileNameArgs)
(fullDesc
<> progDesc "FileUploader"
<> header
"FileUploader - a simple file-uploader program using minio-hs")
ignoreMinioErr :: ServiceErr -> Minio ()
ignoreMinioErr = return . const ()
main :: IO ()
main = do
let bucket = "my-bucket"
-- Parse command line argument, namely --filename.
filepath <- execParser cmdParser
let object = pack $ takeBaseName filepath
res <- runMinio minioPlayCI $ do
-- Make a bucket; catch bucket already exists exception if thrown.
catchIf (== BucketAlreadyOwnedByYou) (makeBucket bucket Nothing) ignoreMinioErr
-- Upload filepath to bucket; object is derived from filepath.
fPutObject bucket object filepath
case res of
Left e -> putStrLn $ "file upload failed due to " ++ (show e)
Right () -> putStrLn "file upload succeeded."
Run FileUploader
./FileUploader.hs "path/to/my/file"