[matcher] still bother in values

src/typing/matcher.ml

@@ -1612,7 +1612,7 @@ module Match = struct
 		{e with epos = p}
 
 	let match_expr ctx e cases def with_type postfix_match p = match cases,def with
-		| [],None ->
+		| [],None when (match with_type with WithType.NoValue -> true | _ -> false) ->
 			type_expr ctx e WithType.value
 		| _ ->
 			match_expr ctx e cases def with_type postfix_match p