<br><br><div class="gmail_quote">On Tue, Feb 24, 2009 at 3:20 PM, Sam TH <span dir="ltr">&lt;<a href="mailto:samth@ccs.neu.edu">samth@ccs.neu.edu</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br><div class="Ih2E3d"><br>
</div>You should probably handle the case where the input is a Bytes as well.<br>
<br></blockquote><div><br>Thanks for pointing it out - I misread the input definition.  The following is the updated wrapper.<br><br>;; md5.ss                                                                                                                    <br>
;; wrapper on file/md5                                                                                                       <br>#lang typed-scheme<br>(require/typed file/md5<br>               (md5 ((U Bytes Input-Port) -&gt; Bytes))<br>
               )<br>(provide md5)<br><br><br></div></div>