Merge c526d3dfb9 into 867cbd2318

test/lwt/hash_server.ml

@@ -1,7 +1,4 @@
-(* vendored from https://github.com/dbuenzli/uuidm
+(* vendored from https://github.com/dbuenzli/uuidm *)
-
-   This function is Copyright (c) 2008 The uuidm programmers.
-   SPDX-License-Identifier: ISC *)
 
 let sha_1 s =
   (* Based on pseudo-code of RFC 3174. Slow and ugly but does the job. *)
@@ -119,10 +116,23 @@ let sha_1 s =
   i2s h 16 !h4;
   Bytes.unsafe_to_string h
 
-(* ================== *)
+(*---------------------------------------------------------------------------
+   Copyright (c) 2008 The uuidm programmers
 
-(* test server that reads a list of files from each client connection, and sends back
+   Permission to use, copy, modify, and/or distribute this software for any
-  to the client the hashes of these files *)
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+  ---------------------------------------------------------------------------*)
+
+(* server that reads from sockets lists of files, and returns hashes of these files *)
 
 module M_lwt = Moonpool_lwt
 module Trace = Trace_core