Merge pull request #4643 from unisonweb/travis/4592/roundtrip-bug-in-…

…docs

Don't implicitly close transclude blocks

unison-src/transcripts/fix4592.md

@@ -0,0 +1,8 @@
+```ucm:hide
+.> builtins.mergeio
+```
+
+```unison
+doc = {{ {{ bug "bug"
+  52 }} }}
+```

unison-src/transcripts/fix4592.output.md

@@ -0,0 +1,18 @@
+```unison
+doc = {{ {{ bug "bug"
+  52 }} }}
+```
+
+```ucm
+
+  Loading changes detected in scratch.u.
+
+  I found and typechecked these definitions in scratch.u. If you
+  do an `add` or `update`, here's how your codebase would
+  change:
+  
+    ⍟ These new definitions are ok to `add`:
+    
+      doc : Doc2
+
+```

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

@@ -259,7 +259,7 @@ token'' tok p = do
     topHasClosePair :: Layout -> Bool
     topHasClosePair [] = False
     topHasClosePair ((name, _) : _) =
-      name `elem` ["{", "(", "[", "handle", "match", "if", "then"]
+      name `elem` ["syntax.docTransclude", "{", "(", "[", "handle", "match", "if", "then"]
 
 showErrorFancy :: (P.ShowErrorComponent e) => P.ErrorFancy e -> String
 showErrorFancy (P.ErrorFail msg) = msg