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

Add spaces

Browse Source
This commit is contained in:
Adrien Vannson 2022-05-16 23:27:10 +02:00
parent e706c4bb9d
commit 97e0ead5fe
No known key found for this signature in database
GPG Key ID: FE2E66FD978C1A55
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pieuvre.ml
View File

@ -17,8 +17,8 @@ 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) ^ ")"
| TAnd(t1,t2) -> "(" ^ (string_of_ty t1) ^ "/\\" ^ (string_of_ty t2) ^ ")" | TAnd(t1,t2) -> "(" ^ (string_of_ty t1) ^ " /\\ " ^ (string_of_ty t2) ^ ")"
| TOr(t1,t2) -> "(" ^ (string_of_ty t1) ^ "\\/" ^ (string_of_ty t2) ^ ")" | TOr(t1,t2) -> "(" ^ (string_of_ty t1) ^ "\\/ " ^ (string_of_ty t2) ^ ")"
| TFalse -> "False" | TFalse -> "False"
| TTrue -> "True" | TTrue -> "True"
;; ;;