소스 검색

[luv] fix warnings

Rudy Ges 1 년 전
부모
커밋
1ef54babdb
1개의 변경된 파일4개의 추가작업 그리고 0개의 파일을 삭제
  1. 4 0
      src/macro/eval/evalLuv.ml

+ 4 - 0
src/macro/eval/evalLuv.ml

@@ -94,6 +94,8 @@ let encode_uv_error (e:Error.t) =
 	| `EILSEQ -> 77
 	| `EILSEQ -> 77
 	| `EOVERFLOW -> 78
 	| `EOVERFLOW -> 78
 	| `ESOCKTNOSUPPORT -> 79
 	| `ESOCKTNOSUPPORT -> 79
+	| `ENODATA -> 80
+	| `EUNATCH -> 81
 	)
 	)
 
 
 let decode_uv_error v : Error.t =
 let decode_uv_error v : Error.t =
@@ -178,6 +180,8 @@ let decode_uv_error v : Error.t =
 	| 77 -> `EILSEQ
 	| 77 -> `EILSEQ
 	| 78 -> `EOVERFLOW
 	| 78 -> `EOVERFLOW
 	| 79 -> `ESOCKTNOSUPPORT
 	| 79 -> `ESOCKTNOSUPPORT
+	| 80 -> `ENODATA
+	| 81 -> `EUNATCH
 	| _ -> unexpected_value v "eval.luv.UVError"
 	| _ -> unexpected_value v "eval.luv.UVError"
 
 
 let luv_exception e =
 let luv_exception e =