]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/google/translate/translate.factor
Switch to https urls
[factor.git] / extra / google / translate / translate.factor
index ed9652319fbe1cd1b56d740d4e6ace755da04063..2d93a13fdd124f58f7f2ee117415ba0444e8a196 100644 (file)
@@ -1,10 +1,10 @@
 ! Copyright (C) 2010 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
 USING: assocs combinators grouping http.client io io.files.temp
 io.files.unique json.reader kernel make sequences urls ;
 IN: google.translate
 
-CONSTANT: google-translate-url "http://ajax.googleapis.com/ajax/services/language/translate"
+CONSTANT: google-translate-url "https://ajax.googleapis.com/ajax/services/language/translate"
 
 CONSTANT: maximum-translation-size 5120
 
@@ -51,7 +51,7 @@ TUPLE: response-error response error ;
     ] loop drop ;
 
 : translate-tts ( text -- file )
-    "http://translate.google.com/translate_tts?tl=en" >url
+    "https://translate.google.com/translate_tts?tl=en" >url
     swap "q" set-query-param [
         "" ".mp3" unique-file [ download-to ] keep
     ] with-temp-directory ;