quad->string

quad/quads-typed.rkt

@@ -4,6 +4,7 @@
                [last ((Listof Any) . -> . Any)])
 (require/typed sugar/list [trimf (All (A) ((Listof A) (A . -> . Boolean) -> (Listof A)))]
                [filter-split (All (A) ((Listof A) (A . -> . Boolean) -> (Listof (Listof A))))])
+(require/typed racket/string [string-append* ((Listof String) . -> . String)])
 (require/typed sugar/string [ends-with? (String String . -> . Boolean)])
 (require sugar/debug)
 (provide (all-defined-out))
@@ -73,6 +74,13 @@
   (quad (quad-name q) (quad-attrs q) (append (quad-list q) (list new-item))))
 
 
+(: quad->string (Quad . -> . String))
+(define (quad->string x)
+  (let loop : String ([x : (U Quad String) x])
+    (cond
+      [(quad? x) (string-append* ((inst map String QuadListItem) loop (quad-list x)))]
+      [(string? x) x]
+      [else ""])))
 
 (provide gather-common-attrs)
 (: gather-common-attrs ((Listof Quad) . -> . (U False (Listof QuadAttrPair))))