mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove scratch programs

Browse source
This commit is contained in:
Joey Hess 2014-09-18 14:37:20 -04:00
parent f7847ae98d
commit 895b496490
3 changed files with 0 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

24
GetObject.hs
View file

@ -1,24 +0,0 @@
{-# LANGUAGE OverloadedStrings #-}
import qualified Aws
import qualified Aws.S3 as S3
import Data.Conduit (($$+-))
import Data.Conduit.Binary (sinkFile)
import Network.HTTP.Conduit (withManager, responseBody)
main :: IO ()
main = do
{- Set up AWS credentials and the default configuration. -}
Just creds <- Aws.loadCredentialsFromEnv
let cfg = Aws.Configuration Aws.Timestamp creds (Aws.defaultLog Aws.Debug)
let s3cfg = Aws.defServiceConfig :: S3.S3Configuration Aws.NormalQuery
{- Set up a ResourceT region with an available HTTP manager. -}
withManager $ \mgr -> do
{- Create a request object with S3.getObject and run the request with pureAws. -}
S3.GetObjectResponse { S3.gorResponse = rsp } <-
Aws.pureAws cfg s3cfg mgr $
S3.getObject "joeyh-test" "cloud-remote.pdf"
{- Save the response to a file. -}
responseBody rsp $$+- sinkFile "cloud-remote2.pdf"

33
PutObject.hs
View file

@ -1,33 +0,0 @@
{-# LANGUAGE OverloadedStrings #-}
import qualified Aws
import qualified Aws.S3 as S3
import Data.Conduit (($$+-))
import Data.Conduit.Binary (sinkFile)
import Network.HTTP.Conduit (withManager, RequestBody(..))
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString as S
import Control.Monad.IO.Class
import Control.Concurrent
import System.Posix.Files
import System.IO
import Control.Applicative
import qualified Data.Text as T
main :: IO ()
main = do
{- Set up AWS credentials and the default configuration. -}
Just creds <- Aws.loadCredentialsFromEnv
let cfg = Aws.Configuration Aws.Timestamp creds (Aws.defaultLog Aws.Debug)
let s3cfg = Aws.defServiceConfig :: S3.S3Configuration Aws.NormalQuery
{- Set up a ResourceT region with an available HTTP manager. -}
withManager $ \mgr -> do
let file ="cloud-remote.pdf"
-- streams file content, without buffering more than 1k in memory!
let streamer sink = withFile file ReadMode $ \h -> sink $ S.hGet h 1024
b <- liftIO $ L.readFile file
size <- liftIO $ (fromIntegral . fileSize <$> getFileStatus file :: IO Integer)
rsp <- Aws.pureAws cfg s3cfg mgr $
S3.putObject "joeyh-test" (T.pack file) (RequestBodyStream (fromInteger size) streamer)
liftIO $ print rsp

19
RemoveObject.hs
View file

@ -1,19 +0,0 @@
{-# LANGUAGE OverloadedStrings #-}
import qualified Aws
import qualified Aws.S3 as S3
import Data.Conduit (($$+-))
import Data.Conduit.Binary (sinkFile)
import Network.HTTP.Conduit (withManager, responseBody)
import Control.Monad.IO.Class
main :: IO ()
main = do
Just creds <- Aws.loadCredentialsFromEnv
let cfg = Aws.Configuration Aws.Timestamp creds (Aws.defaultLog Aws.Debug)
let s3cfg = Aws.defServiceConfig :: S3.S3Configuration Aws.NormalQuery
withManager $ \mgr -> do
rsp <- Aws.pureAws cfg s3cfg mgr $
S3.DeleteObject "cloud-remote.pdf" "joeyh-test"
liftIO $ print "removal done"