[m-rev.] trivial diff: update ssl binding

[Julien Fischer]

Estimated hours taken: 0
Branches: main

extras/mopenssl/mopenssl.m:
 	Conform to recent changes in the stream.input type class.

Julien.

Index: mopenssl.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/extras/mopenssl/mopenssl.m,v
retrieving revision 1.1
diff -u -r1.1 mopenssl.m
--- mopenssl.m	16 Nov 2006 04:04:25 -0000	1.1
+++ mopenssl.m	9 May 2007 04:03:55 -0000
@@ -383,14 +383,14 @@
  ].


-:- instance input(ssl, io, ssl_error).
+:- instance input(ssl, io).
  :- instance reader(ssl, character, io, ssl_error).

  :- instance output(ssl, io).
  :- instance writer(ssl, character, io).
  :- instance writer(ssl, string, io).

-:- instance input(ssl, io, ssl_error) where [].
+:- instance input(ssl, io) where [].
  :- instance reader(ssl, character, io, ssl_error) where [
      (get(S, Result, !IO) :-
          mopenssl.read_char(S ^ handle, C, IsCharRead, !IO),

--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------