Data commit

Task/HTTPS/Haskell/https-1.hs

@@ -0,0 +1,8 @@
+#!/usr/bin/runhaskell
+
+import Network.HTTP.Conduit
+import qualified Data.ByteString.Lazy as L
+import Network (withSocketsDo)
+
+main = withSocketsDo
+    $ simpleHttp "https://sourceforge.net/" >>= L.putStr

Task/HTTPS/Haskell/https-2.hs

@@ -0,0 +1,7 @@
+# Requires Unicon version 13
+procedure main(arglist)
+    url := (\arglist[1] | "https://sourceforge.net/")
+    w := open(url, "m-") | stop("Cannot open " || url)
+    while write(read(w))
+    close(w)
+end