From a66f70c0bb3ffb47b10b28b9ba92fefde3d56f57 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 2 Jul 2019 13:18:09 -0400 Subject: reword to be more like ghc wording --- src/Propellor/Types/MetaTypes.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor') diff --git a/src/Propellor/Types/MetaTypes.hs b/src/Propellor/Types/MetaTypes.hs index a7037a6a..68b3503d 100644 --- a/src/Propellor/Types/MetaTypes.hs +++ b/src/Propellor/Types/MetaTypes.hs @@ -185,7 +185,7 @@ type family UnknownType :: ErrorMessage where UnknownType = 'Text "" type family UnknownTypeNote :: Maybe ErrorMessage where - UnknownTypeNote = 'Just ('Text "(Property is often caused by a Property constructor being passed the wrong number of parameters.)") + UnknownTypeNote = 'Just ('Text "(Property is often caused by applying a Property constructor to the wrong number of arguments.)") type family CannotCombineMessage (a :: ErrorMessage) (b :: ErrorMessage) (note :: Maybe ErrorMessage) :: ErrorMessage where CannotCombineMessage a b ('Just note) = -- cgit v1.2.3