X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHandleLike.hs;h=65d99f40c60aa42f4be092527914e5f6d8d64bed;hp=cc90cd6746ed7a74e8a1ed979e4f343423585863;hb=7bb9f32;hpb=d0865cb266d25b6f3e07a34c10a3a04fc0405db8

diff --git a/Network/HTTP/Lucu/HandleLike.hs b/Network/HTTP/Lucu/HandleLike.hs
index cc90cd6..65d99f4 100644
--- a/Network/HTTP/Lucu/HandleLike.hs
+++ b/Network/HTTP/Lucu/HandleLike.hs
@@ -30,6 +30,8 @@ class HandleLike h where
     hGetPeerCert ∷ h → IO (Maybe X509)
     hGetPeerCert = const $ return Nothing
 #endif
+    hIsSSL ∷ h → Bool
+    hIsSSL _ = False
 
     hFlush  ∷ h → IO ()
     hClose  ∷ h → IO ()
@@ -56,6 +58,7 @@ instance HandleLike SSL.SSL where
                  SSL.getPeerCertificate s
              else
                  return Nothing
+    hIsSSL _ = True
 
     hFlush _ = return () -- No need to do anything.
     hClose s = SSL.shutdown s SSL.Bidirectional