Fix typos in media support

Co-authored-by: Guillaume Petiot <[email protected]>

Author: panglesd

src/model_desc/paths_desc.ml

@@ -196,7 +196,7 @@ module General_paths = struct
       | `TType -> C0 "`TType"
       | `TUnknown -> C0 "`TUnknown"
       | `TValue -> C0 "`TValue"
-      | `TAsset -> C0 "`TValue"
+      | `TAsset -> C0 "`TAsset"
       | `TChildPage -> C0 "`TChildPage"
       | `TChildModule -> C0 "`TChildModule")
 

src/parser/token.ml

@@ -144,7 +144,7 @@ let print : [< t ] -> string = function
   | `Simple_media (`Reference _, `Image) -> "{image!...}"
   | `Simple_media (`Reference _, `Audio) -> "{audio!...}"
   | `Simple_media (`Reference _, `Video) -> "{video!...}"
-  | `Simple_media (`Link _, `Image) -> "{image!...}"
+  | `Simple_media (`Link _, `Image) -> "{image:...}"
   | `Simple_media (`Link _, `Audio) -> "{audio:...}"
   | `Simple_media (`Link _, `Video) -> "{video:...}"
   | `Begin_media_with_replacement_text (`Reference _, `Image) ->
@@ -180,21 +180,21 @@ let describe : [< t | `Comment ] -> string = function
   | `Simple_media (`Reference _, `Image) -> "'{image!...}' (image-reference)"
   | `Simple_media (`Reference _, `Audio) -> "'{audio!...}' (audio-reference)"
   | `Simple_media (`Reference _, `Video) -> "'{video!...}' (video-reference)"
-  | `Simple_media (`Link _, `Image) -> "'{image!...}' (image-link)"
-  | `Simple_media (`Link _, `Audio) -> "'{audio:...}' (audio-reference)"
-  | `Simple_media (`Link _, `Video) -> "'{video:...}' (video-reference)"
+  | `Simple_media (`Link _, `Image) -> "'{image:...}' (image-link)"
+  | `Simple_media (`Link _, `Audio) -> "'{audio:...}' (audio-link)"
+  | `Simple_media (`Link _, `Video) -> "'{video:...}' (video-link)"
   | `Begin_media_with_replacement_text (`Reference _, `Image) ->
       "'{{image!...} ...}' (image-reference)"
   | `Begin_media_with_replacement_text (`Reference _, `Audio) ->
       "'{{audio!...} ...}' (audio-reference)"
   | `Begin_media_with_replacement_text (`Reference _, `Video) ->
       "'{{video!...} ...}' (video-reference)"
   | `Begin_media_with_replacement_text (`Link _, `Image) ->
-      "'{{image:...} ...}' (image-reference)"
+      "'{{image:...} ...}' (image-link)"
   | `Begin_media_with_replacement_text (`Link _, `Audio) ->
-      "'{{audio:...} ...}' (audio-reference)"
+      "'{{audio:...} ...}' (audio-link)"
   | `Begin_media_with_replacement_text (`Link _, `Video) ->
-      "'{{video:...} ...}' (video-reference)"
+      "'{{video:...} ...}' (video-link)"
   | `Simple_link _ -> "'{:...} (external link)'"
   | `Begin_link_with_replacement_text _ -> "'{{:...} ...}' (external link)"
   | `End -> "end of text"