- | T.Plain s -> P.sprintf "\"%s\"" s
- | T.Link (uri, s) -> P.sprintf "@(\"%s\" \"%s\")" uri s
+ | T.Plain s -> P.sprintf "\"%s\"" s
+ | T.Link (true, uri, s) -> P.sprintf "@(\"%s\" \"%s\")" uri s
+ | T.Link (false, uri, s) -> P.sprintf "@@(\"%s\" \"%s\")" uri s