X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FURI.hs;fp=src%2FLWN%2FURI.hs;h=7aa4240cf146eee312801881100ce43be087b6e5;hp=1cf88263f5a627ecb5851bc6531858fe1b257f3f;hb=b18c060e5cb708901eb29f1f27b25c467875a143;hpb=ebedcdb6b1b8925dcfb5700d076f25743fac8645

diff --git a/src/LWN/URI.hs b/src/LWN/URI.hs
index 1cf8826..7aa4240 100644
--- a/src/LWN/URI.hs
+++ b/src/LWN/URI.hs
@@ -40,6 +40,19 @@ http_port uri =
     parse_result = uriAuthority uri
 
 
+make_https :: URL -> URL
+make_https url =
+  case parse_result of
+    Nothing -> url -- Shrug?
+    Just uri ->
+      if http uri then
+        show $ uri { uriScheme = "https:" }
+      else
+        url -- Leave non-http URLs alone.
+  where
+    parse_result = parseURIReference url
+
+
 -- | Does this URI use an HTTPS-compatible port?
 https_port :: URI -> Bool
 https_port uri =