浏览代码

fix compilation...

Simon Krajewski 7 年之前
父节点
当前提交
b5a89992e5
共有 1 个文件被更改,包括 1 次插入1 次删除
  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 ->