Merge pull request #5321 from unisonweb/fix-5320

bugfix: make the term parser consider `lower.Upper` a constructor

parser-typechecker/src/Unison/Syntax/TermParser.hs

@@ -350,7 +350,7 @@ parsePattern = label "pattern" root
                   pure (Set.findMin s <$ tok)
               | otherwise -> die names tok s
       where
-        isLower = Text.all Char.isLower . Text.take 1 . Name.toText
+        isLower = Text.all Char.isLower . Text.take 1 . NameSegment.toUnescapedText . Name.lastSegment
         isIgnored n = Text.take 1 (Name.toText n) == "_"
         die :: Names -> L.Token (HQ.HashQualified Name) -> Set ConstructorReference -> P v m a
         die names hq s = case L.payload hq of

unison-src/transcripts/fix-5320.md

@@ -0,0 +1,8 @@
+```ucm
+scratch/main> builtins.merge lib.builtin
+```
+
+```unison:error
+foo = cases
+    bar.Baz -> 5
+```

unison-src/transcripts/fix-5320.output.md

@@ -0,0 +1,29 @@
+``` ucm
+scratch/main> builtins.merge lib.builtin
+
+  Done.
+
+```
+``` unison
+foo = cases
+    bar.Baz -> 5
+```
+
+``` ucm
+
+  Loading changes detected in scratch.u.
+
+  
+    ❓
+    
+    I couldn't resolve any of these symbols:
+    
+        2 |     bar.Baz -> 5
+    
+    
+    Symbol    Suggestions
+              
+    bar.Baz   No matches
+  
+
+```