Add <URL> when print-only.

[doclang.git] / Language / DTC / Write / Plain.hs

diff --git a/Language/DTC/Write/Plain.hs b/Language/DTC/Write/Plain.hs
index 34b864309ef6116454804f096c30581f5231c06f..e4b5e157626f080d2c8454b35367d1c2d91b56b9 100644 (file)
--- a/Language/DTC/Write/Plain.hs
+++ b/Language/DTC/Write/Plain.hs
@@ -102,6 +102,7 @@ instance Plainify (Tree PlainNode) where
                        State{state_l10n=Loqualization loc} <- S.get
                        l10n_Quote (plainify ls) loc
                 PlainSC       -> plainify ls
+                PlainSpan{..} -> plainify ls
                 PlainSub      -> plainify ls
                 PlainSup      -> plainify ls
                 PlainU        -> "_"<>plainify ls<>"_"