- in
- let s = obj ^ G.string_of_inline_kind k in
- path, Some (T.Inline (b, k, Filename.concat in_base_uri s, p, f))
- | T.Include s ->
+ in
+ let ext = G.string_of_inline_kind k in
+ let s = Filename.concat in_base_uri (obj ^ ext) in
+ let params =
+ params @
+ get_iparams st "*" @
+ get_iparams st ("*" ^ ext) @
+ get_iparams st (Filename.concat name obj)
+ in
+ path, Some (T.Inline (b, k, s, p, f, params))
+ | T.Include (moo, s) ->