From a62aece02628b40703281a412cd608eb4870e7b8 Mon Sep 17 00:00:00 2001 From: Arya Irani Date: Tue, 12 Dec 2023 22:47:17 -1000 Subject: [PATCH] update message again --- unison-cli/src/Unison/CommandLine/OutputMessages.hs | 4 ++-- .../transcripts/update-type-missing-constructor.output.md | 6 +++--- .../transcripts/update-type-stray-constructor.output.md | 6 +++--- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/unison-cli/src/Unison/CommandLine/OutputMessages.hs b/unison-cli/src/Unison/CommandLine/OutputMessages.hs index ec02a44f4f..467df0ca6f 100644 --- 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 index 1c545b2ab0..ef1aa1dcfc 100644 --- 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 Foo.` 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 index ea408dac54..bd919fc0b5 100644 --- 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 Foo.` to give names to