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
No known key found for this signature in database
GPG Key ID: FE2E66FD978C1A55
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pieuvre.ml
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 -> "⊥"
;; ;;