Data/IterIO/SSL.hs:36:39:
    Couldn't match expected type `Net.Socket'
                with actual type `Maybe Net.Socket'
    In the return type of a call of `SSL.sslSocket'
    In the second argument of `($)', namely `SSL.sslSocket ssl'
    In the second argument of `consCtl', namely
      `(socketCtl $ SSL.sslSocket ssl)'

-- Simple fix to get IterIO to work Change made in SSL.hs to enumSs fucntion


-- | Simple OpenSSL 'Onum'.
enumSsl :: (MonadIO m) => SSL.SSL -> Onum L.ByteString m a
enumSsl ssl = mkInumC id ch codec
    where ch = mkCtl (\SslC -> return $ SslConnection ssl)
               `consCtl` (socketCtl $ case (SSL.sslSocket ssl) of
                                        Just x -> x
                                        Nothing -> error "error unwraping maybe")
          codec = do buf <- liftIO (SSL.read ssl L.defaultChunkSize)
                     if S.null buf
                       then return L.empty
                       else return $ L.fromChunks [buf]

-- Simple fix to get IterIO to work Change made in SSL.hs to enumSs fucntion


-- | Simple OpenSSL 'Onum'.
enumSsl :: (MonadIO m) => SSL.SSL -> Onum L.ByteString m a
enumSsl ssl = mkInumC id ch codec
    where ch = mkCtl (\SslC -> return $ SslConnection ssl)
               `consCtl` (socketCtl $ fromMaybe (error "error unwraping maybe") (SSL.sslSocket ssl))
          codec = do buf <- liftIO (SSL.read ssl L.defaultChunkSize)
                     if S.null buf
                       then return L.empty
                       else return $ L.fromChunks [buf]