This expression has type unit but is here used with type string

Bonjour,

j'ai fais un petit programme qui se connecte à un serveur IRC, le seul problème ( pour l'instant ) est que je n'arrive pas à répondre aux ping, mon code me renvoye une erreur :

Code:

---

1 2 3 4 5 6

try Str.search_forward (Str.regexp "^PING :") r 0; (* Ligne 26 *) let pong_answer = List.hd (Str.split (Str.regexp "PING :") r) in output_string oc "PONG :"^ pong_answer ^"\n"; (* Ligne 28 *) print_string "\n\nPING -> PONG\n\n" with Not_found -> ();

---

Me donne :

Code:

---

1 2 3 4 5 6

$ ocaml unix.cma str.cma irc.ml [...] File "Lilith.ml", line 26, characters 4-49: Warning S: this expression should have type unit. File "Lilith.ml", line 28, characters 4-29: This expression has type unit but is here used with type string

---

Quelqu'un aurais une solution ?
Merci .

# Str.search_forward ;;
- : Str.regexp -> string -> int -> int = <fun>
(** ..... Return the position of the first character of the matched substring ... *)

let pos = Str.search_forward (Str.regexp "^PING :") r 0 in

et si tu n'as pas besoin du résultat pos, utilise :
let _ = Str.search_forward (Str.regexp "^PING :") r 0 in
ou
ignore(Str.search_forward (Str.regexp "^PING :") r 0);

===============================

il faut entourer de parenthèses le résultat de concaténation de chaînes :

output_string oc ("PONG :"^ pong_answer ^"\n");

souvent quand tu as une erreur dans un fichier tu peux vérifier plus simplement en recopiant la ligne dans le top-level, et le top-level te soulignera l'endrois de l'erreur :

Code:

---

1 2 3 4 5 6 7 8

# let oc = stdout ;; val oc : out_channel = <abstr> # output_string oc "PONG :"^ pong_answer ^"\n";; This expression has type unit but is here used with type string # output_string oc ("PONG :"^ pong_answer ^"\n") ;; PONG :HELLO - : unit = ()

---

comme tu le vois l'expression est comprise comme si les parenthèses étaient comme ceci :

(output_string oc "PONG :") ^ pong_answer ^"\n";

Merci .

Citation:

---

Envoyé par fgjdfgjdgj

souvent quand tu as une erreur dans un fichier tu peux vérifier plus simplement en recopiant la ligne dans le top-level, et le top-level te soulignera l'endrois de l'erreur :

---

Mieux encore : on peut utiliser un véritable environnement de développement. Par exemple Emacs te permet de compiler (fonction "compile"), de surligner l'erreur dans ton code et de déplacer ton curseur là où il faut (fonctions "next-error" et "previous-error").