Update transcripts

unison-src/transcripts-using-base/doc.output.md

@@ -402,6 +402,7 @@ and the rendered output using `display`:
         |  |  |___|_|___ ___ ___ 
         |  |  |   | |_ -| . |   |
         |_____|_|_|_|___|___|_|_|
+        
       '''
       
       You can use three or more backticks plus a language name
@@ -431,6 +432,7 @@ and the rendered output using `display`:
       |  |  |___|_|___ ___ ___ 
       |  |  |   | |_ -| . |   |
       |_____|_|_|_|___|___|_|_|
+      
     ```
   
     You can use three or more backticks plus a language name for
@@ -709,6 +711,7 @@ Lastly, it's common to build longer documents including subdocuments via `{{ sub
         |  |  |___|_|___ ___ ___ 
         |  |  |   | |_ -| . |   |
         |_____|_|_|_|___|___|_|_|
+        
       ```
     
       You can use three or more backticks plus a language name

unison-src/transcripts/bug-strange-closure.output.md

@@ -146,6 +146,7 @@ We can display the guide before and after adding it to the codebase:
         |  |  |___|_|___ ___ ___ 
         |  |  |   | |_ -| . |   |
         |_____|_|_|_|___|___|_|_|
+        
       ```
     
       You can use three or more backticks plus a language name
@@ -356,6 +357,7 @@ We can display the guide before and after adding it to the codebase:
         |  |  |___|_|___ ___ ___ 
         |  |  |   | |_ -| . |   |
         |_____|_|_|_|___|___|_|_|
+        
       ```
     
       You can use three or more backticks plus a language name
@@ -574,6 +576,7 @@ rendered = Pretty.get (docFormatConsole doc.guide)
         |  |  |___|_|___ ___ ___ 
         |  |  |   | |_ -| . |   |
         |_____|_|_|_|___|___|_|_|
+        
       ```
     
       You can use three or more backticks plus a language name
@@ -777,6 +780,7 @@ rendered = Pretty.get (docFormatConsole doc.guide)
         |  |  |___|_|___ ___ ___ 
         |  |  |   | |_ -| . |   |
         |_____|_|_|_|___|___|_|_|
+        
       ```
     
       You can use three or more backticks plus a language name
@@ -3718,7 +3722,7 @@ rendered = Pretty.get (docFormatConsole doc.guide)
                                           ()
                                           (Right
                                             (Plain
-                                              "   _____     _             \n  |  |  |___|_|___ ___ ___ \n  |  |  |   | |_ -| . |   |\n  |_____|_|_|_|___|___|_|_|"))
+                                              "   _____     _             \n  |  |  |___|_|___ ___ ___ \n  |  |  |   | |_ -| . |   |\n  |_____|_|_|_|___|___|_|_|\n  "))
                                       , Lit
                                           ()
                                           (Right (Plain "\n"))

unison-syntax/src/Unison/Syntax/Lexer.hs

@@ -541,7 +541,7 @@ lexemes' eof =
                 let txt = trimIndentFromVerbatimBlock (column start - 1) (trimAroundDelimiters originalText)
                  in wrap "syntax.docVerbatim" $
                       wrap "syntax.docWord" $
-                        pure [Token (Textual (trimAroundDelimiters txt)) start stop]
+                        pure [Token (Textual txt) start stop]
               else
                 wrap "syntax.docCode" $
                   wrap "syntax.docWord" $