diff options
| author | Jim Fehrle | 2021-03-07 10:15:11 -0800 |
|---|---|---|
| committer | Jim Fehrle | 2021-03-30 09:51:56 -0700 |
| commit | eeb142f3c69d2467fbadd7dd1470ac1606b2e5bf (patch) | |
| tree | 6057d6c11961f6398fcca77313b0e8abcaaa8961 /printing/ppconstr.ml | |
| parent | 16d9e9cf378b9eb0ee0fc42c5c0a3a23b3df6ff4 (diff) | |
Remove the :> type cast
Diffstat (limited to 'printing/ppconstr.ml')
| -rw-r--r-- | printing/ppconstr.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 4c410c3170..e08a494c2e 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -673,8 +673,7 @@ let tag_var = tag Tag.variable match b with | CastConv b -> str ":" ++ ws 1 ++ pr mt (LevelLe (-lcast)) b | CastVM b -> str "<:" ++ ws 1 ++ pr mt (LevelLe (-lcast)) b - | CastNative b -> str "<<:" ++ ws 1 ++ pr mt (LevelLe (-lcast)) b - | CastCoerce -> str ":>"), + | CastNative b -> str "<<:" ++ ws 1 ++ pr mt (LevelLe (-lcast)) b), lcast ) | CNotation (_,(_,"( _ )"),([t],[],[],[])) -> |