Commit 43ed86b4 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Added [SIComment].

parent bce441e5
...@@ -250,3 +250,5 @@ and structure_item = ...@@ -250,3 +250,5 @@ and structure_item =
| SIModuleDef of string * modexpr | SIModuleDef of string * modexpr
(* Module inclusion. *) (* Module inclusion. *)
| SIInclude of modexpr | SIInclude of modexpr
(* Comment. *)
| SIComment of string
...@@ -285,7 +285,8 @@ let rec inline_structure_item item = ...@@ -285,7 +285,8 @@ let rec inline_structure_item item =
| SIExcDefs _ | SIExcDefs _
| SITypeDefs _ | SITypeDefs _
| SIValDefs (false, _) | SIValDefs (false, _)
| SIStretch _ -> | SIStretch _
| SIComment _ ->
item item
and inline_structure s = and inline_structure s =
......
...@@ -641,6 +641,8 @@ let rec structure_item f item = ...@@ -641,6 +641,8 @@ let rec structure_item f item =
fprintf f "module %s = %a" name modexpr rhs fprintf f "module %s = %a" name modexpr rhs
| SIInclude e -> | SIInclude e ->
fprintf f "include %a" modexpr e fprintf f "include %a" modexpr e
| SIComment comment ->
fprintf f "(* %s *)" comment
end; end;
nl f nl f
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment