Fill in missing case in Pretty.map

parser-typechecker/src/Unison/Runtime/IOSource.hs

@@ -750,7 +750,7 @@ Pretty.map f p =
     Wrap _ p -> Wrap () (go p)
     OrElse _ p1 p2 -> OrElse () (go p1) (go p2)
     Indent _ i0 iN p -> Indent () (go i0) (go iN) (go p)
-    -- Append _ ps -> Append () (List.map go ps)
+    Annotated.Append _ ps -> Annotated.Append () (List.map go ps)
   Pretty (go (Pretty.get p))
 
 Pretty.empty : Pretty txt

unison-src/new-runtime-transcripts/doc.md.files/syntax.u

@@ -1,12 +1,13 @@
-doc.guide = {{ TODO - uncomment the below }}
-
----
 doc.guide = {{
+  testing
+}} ---
 
 # Unison documentation format
 
 The syntax tries to be close to markdown.
 
+
+
 ## Basic formatting
 
 Paragraphs are separated by one or more blanklines. There's syntax for bold, italics, and strikethrough text:

unison-src/new-runtime-transcripts/doc.output.md

@@ -67,6 +67,6 @@ The `docs ImportantConstant` command will look for `ImportantConstant.doc` in th
 
 .> display doc.guide
 
-  TODO - uncomment the below
+  testing
 
 ```