Browse Source

fix compilation...

Simon Krajewski 7 năm trước cách đây
mục cha
commit
b5a89992e5
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  1. 1 1
      src/compiler/displayOutput.ml

+ 1 - 1
src/compiler/displayOutput.ml

@@ -67,7 +67,7 @@ let print_fields fields =
 			let path = CompletionItem.CompletionModuleType.get_path cm in
 			"type",snd path,s_type_path path,None
 		| ITPackage(path,_) -> "package",snd path,"",None
-		| ITModule s -> "type",s,"",None
+		| ITModule path -> "type",snd path,"",None
 		| ITMetadata(s,doc) -> "metadata",s,"",doc
 		| ITTimer(name,value) -> "timer",name,"",Some value
 		| ITLiteral s ->