20 lines
474 B
Haskell
20 lines
474 B
Haskell
module Handler.Utils.Minio
|
|
( runAppMinio
|
|
) where
|
|
|
|
import Import.NoFoundation
|
|
import Foundation.Type
|
|
|
|
import Network.Minio (Minio)
|
|
import qualified Network.Minio as Minio
|
|
|
|
|
|
runAppMinio :: ( MonadHandler m, HandlerSite m ~ UniWorX
|
|
, MonadThrow m
|
|
, MonadPlus m
|
|
)
|
|
=> Minio a -> m a
|
|
runAppMinio act = do
|
|
conn <- hoistMaybe =<< getsYesod appUploadCache
|
|
either throwM return <=< liftIO $ Minio.runMinioWith conn act
|