Mysaa/pieuvre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correction d'un bug

Browse Source
This commit is contained in:
Adrien Vannson
2022-05-08 18:10:08 +02:00
parent 4d6287f2cd
commit 15afcecabe
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
pieuvre.ml
+1 -1
View File
@@ -8,7 +8,7 @@ exception IllegalVarNameException of var
let rec string_of_ty (t: ty) : string = let rec string_of_ty (t: ty) : string =
match t with match t with
| TSimple(tn) -> tn | TSimple(tn) -> tn
| TImpl(t1,t2) -> (string_of_ty t1) ^ " -> " ^ (string_of_ty t2) | TImpl(t1,t2) -> "(" ^ (string_of_ty t1) ^ " -> " ^ (string_of_ty t2) ^ ")"
| TFalse -> "⊥" | TFalse -> "⊥"
;; ;;