Skip to content

GitLab

Open
Created by Kim Nguyễn@knOwner

Fix pretty printing of Top types

# let max (x: 'a) (y: 'a): 'a = if ( x >> y) then x else y;;
val max : 'a -> 'a -> 'a = <fun>
# max (42 : Int);;
- : (('a \ (Int)) | Int) -> (('a \ (Int)) | Int) = <fun>
# max (42 : 42|AnyXml|Atom|Arrow);;
- : (('a \ ((Arrow | Atom))) | (Arrow | AnyXml | Atom | 42)) -> (('a \ (
                                                                (Arrow |
                                                                Atom))) |
                                                                (Arrow |
                                                                AnyXml |
                                                                Atom | 42)) = <fun>
# max (42 : 42|AnyXml|Atom);;
- : (('a \ (Atom)) | (AnyXml | Atom | 42)) -> (('a \ (Atom)) |
                                              (AnyXml | Atom | 42)) = <fun>