- | T.Inline specs -> out_command och (inline (trd_rth kind specs))
- | T.Section specs -> out_unexported och "UNEXPORTED" (trd specs)
- | T.Comment comment -> out_comment och comment
- | T.Unexport unexport -> out_unexported och "UNEXPORTED" unexport
+ | T.Inline (_, _, src, pre, fl) ->
+ if !O.getter then check och src;
+ out_command och (inline kind src pre fl)
+ | T.Section specs ->
+ if !O.comments then out_unexported och "UNEXPORTED" (trd specs)
+ | T.Comment comment ->
+ if !O.comments then out_comment och comment
+ | T.Unexport unexport ->
+ if !O.comments then out_unexported och "UNEXPORTED" unexport