core, basis, extra: Remove DOS line endings from files.

[factor.git] / extra / s3 / s3.factor

diff --git a/extra/s3/s3.factor b/extra/s3/s3.factor
index e04117024babf09c054d4d94e66da496888118d1..6977fac032e51aa3cca28b250bc7625ad8359a33 100644 (file)
--- a/extra/s3/s3.factor
+++ b/extra/s3/s3.factor
@@ -37,7 +37,7 @@ TUPLE: s3-request path mime-type date method headers  bucket data ;
 
 : signature ( s3-request -- string )
     [
-        { 
+        {
             [ method>> % "\n" % "\n" % ]
             [ mime-type>> % "\n" % ]
             [ date>> timestamp>rfc822 % "\n" % ]
@@ -57,8 +57,8 @@ TUPLE: s3-request path mime-type date method headers  bucket data ;
 
 : s3-url ( s3-request -- string )
     [
-        "http://" % 
-        dup bucket>> [ % "." % ] when* 
+        "http://" %
+        dup bucket>> [ % "." % ] when*
         "s3.amazonaws.com" %
         path>> %
     ] "" make ;
@@ -76,11 +76,11 @@ TUPLE: s3-request path mime-type date method headers  bucket data ;
     swap sign "Authorization" set-header ;
 
 : s3-get ( bucket path headers -- request data )
-    "GET" <s3-request> dup s3-url <get-request> 
+    "GET" <s3-request> dup s3-url <get-request>
     sign-http-request http-request ;
 
 : s3-put ( data bucket path headers -- request data )
-    "PUT" <s3-request> dup s3-url swapd <put-request> 
+    "PUT" <s3-request> dup s3-url swapd <put-request>
     sign-http-request http-request ;
 
 PRIVATE>
@@ -90,13 +90,13 @@ TUPLE: bucket name date ;
 <PRIVATE
 
 : (buckets) ( xml -- seq )
-    "Buckets" tag-named 
+    "Buckets" tag-named
     "Bucket" tags-named [
-        [ "Name" tag-named children>string ] 
+        [ "Name" tag-named children>string ]
         [ "CreationDate" tag-named children>string ] bi bucket boa
     ] map ;
 PRIVATE>
- 
+
 : buckets ( -- seq )
     f "/" H{ } clone s3-get nip >string string>xml (buckets) ;
 
@@ -131,7 +131,7 @@ PRIVATE>
     "" swap "/" H{ } clone "PUT" <s3-request>
     "application/octet-stream" >>mime-type
     dup s3-url swapd <put-request>
-    0 "content-length" set-header 
+    0 "content-length" set-header
     sign-http-request
     http-request 2drop ;
 
@@ -140,12 +140,12 @@ PRIVATE>
     dup s3-url <delete-request> sign-http-request http-request 2drop ;
 
 : put-object ( data mime-type bucket key headers -- )
-    [ "/" prepend ] dip "PUT" <s3-request> 
+    [ "/" prepend ] dip "PUT" <s3-request>
     over >>mime-type
     [ <post-data> swap >>data ] dip
-    dup s3-url swapd <put-request> 
+    dup s3-url swapd <put-request>
     dup header>> pick headers>> assoc-union >>header
-    sign-http-request 
+    sign-http-request
     http-request 2drop ;
 
 : delete-object ( bucket key -- )