fix error message saying <, it should be <=

src/Data/StringVariants/NullableNonEmptyText.hs

@@ -40,9 +40,9 @@
 import Data.Data (Data, Proxy (..))
 import Data.Hashable (Hashable)
 import Data.Maybe (fromMaybe)
 import Data.MonoTraversable (MonoFoldable)
 import Data.StringVariants.NonEmptyText
 import Data.StringVariants.NonEmptyText.Internal (NonEmptyText (..))
 import Data.StringVariants.Util
 import Data.Text (Text)
 import Data.Text qualified as T
@@ -84,7 +84,7 @@
 --   > {"name": "Daniel", catchphrase: "    Yabba-Dabba Do!   "}
 --
 --   Use 'nullableNonEmptyTextToMaybeNonEmptyText' to extract @Maybe (NonEmptyText n)@ from @NullableNonEmptyText n@.
 newtype NullableNonEmptyText n = NullableNonEmptyText (Maybe (NonEmptyText n))
   deriving stock (Data, Generic, Show, Read, Lift)
   deriving newtype (Eq, Ord, Hashable, NFData)
 
@@ -115,7 +115,7 @@
   parseJSON = \case
     J.String t -> case mkNullableNonEmptyText t of
       Just txt -> pure txt
-      Nothing -> fail $ "Data/StringVariants/NullableNonEmptyText.hs: When trying to parse a NullableNonEmptyText, expected a String of length < " ++ show (natVal (Proxy @n)) ++ ", but received: " ++ T.unpack t
+      Nothing -> fail $ "Data/StringVariants/NullableNonEmptyText.hs: When trying to parse a NullableNonEmptyText, expected a String of length <= " ++ show (natVal (Proxy @n)) ++ ", but received: " ++ T.unpack t
     J.Null -> pure $ NullableNonEmptyText Nothing
     x -> fail $ "Data/StringVariants/NullableNonEmptyText.hs: When trying to parse a NullableNonEmptyText, expected a String or Null, but received: " ++ show x
 
@@ -155,7 +155,7 @@
     }
   where
     compileNullableNonEmptyText' :: String -> Q Exp
     compileNullableNonEmptyText' s = usePositiveNat n errorMessage $ \(_ :: proxy n) ->
       case mkNullableNonEmptyText @n (T.pack s) of
         Just txt -> [|$(lift txt)|]
         Nothing -> errorMessage