update message again

unisonweb · Dec 13, 2023 · a62aece · a62aece
1 parent 84ace9d
commit a62aece
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/unison-cli/src/Unison/CommandLine/OutputMessages.hs b/unison-cli/src/Unison/CommandLine/OutputMessages.hs
@@ -2198,8 +2198,8 @@ notifyUser dir = \case
             [ P.wrap $
                 "I couldn't complete the"
                   <> operationName
-                  <> "because one of your types,"
-                  <> P.group (prettyName typeName <> ",")
+                  <> "because the type"
+                  <> prettyName typeName
                   <> "has unnamed constructors."
                   <> "(I currently need each constructor to have a name somewhere under the type name.)",
               "",

diff --git a/unison-src/transcripts/update-type-missing-constructor.output.md b/unison-src/transcripts/update-type-missing-constructor.output.md
@@ -53,9 +53,9 @@ unique type Foo = Bar Nat Nat
   Okay, I'm searching the branch for code that needs to be
   updated...
 
-  I couldn't complete the update because one of your types, Foo,
-  has unnamed constructors. (I currently need each constructor
-  to have a name somewhere under the type name.)
+  I couldn't complete the update because the type Foo has
+  unnamed constructors. (I currently need each constructor to
+  have a name somewhere under the type name.)
   
   You can use `view Foo` and
   `alias.term <hash> Foo.<ConstructorName>` to give names to

diff --git a/unison-src/transcripts/update-type-stray-constructor.output.md b/unison-src/transcripts/update-type-stray-constructor.output.md
@@ -55,9 +55,9 @@ Note that the constructor name shown here (implied to be called `Foo.Stray.Bar`)
   Okay, I'm searching the branch for code that needs to be
   updated...
 
-  I couldn't complete the update because one of your types, Foo,
-  has unnamed constructors. (I currently need each constructor
-  to have a name somewhere under the type name.)
+  I couldn't complete the update because the type Foo has
+  unnamed constructors. (I currently need each constructor to
+  have a name somewhere under the type name.)
   
   You can use `view Foo` and
   `alias.term <hash> Foo.<ConstructorName>` to give names to