26 |
|
|
27 |
open BasicSocket |
open BasicSocket |
28 |
open CommonTypes |
open CommonTypes |
29 |
|
open CommonOptions |
30 |
open CommonNetwork |
open CommonNetwork |
31 |
open Md4 |
open Md4 |
32 |
open GuiTypes |
open GuiTypes |
101 |
| _, _, _ -> |
| _, _, _ -> |
102 |
(* it switched to a hash that's used somewhere else, |
(* it switched to a hash that's used somewhere else, |
103 |
that's certainly a theft. *) |
that's certainly a theft. *) |
104 |
lprintf "That hash was already used somewhere else, that's certainly a theft!"; |
if !verbose then |
105 |
lprint_newline (); |
lprintf "That hash was already used somewhere else, that's certainly a theft!\n"; |
106 |
false |
false |
107 |
;; |
;; |
108 |
let clean_thieves () = |
let clean_thieves () = |