
tl;dr We have |instance IsString [Char]| and |instance IsList (NonEmpty a)|. Let’s also have |IsString (NonEmpty Char)|. Background |IsString| is a class that is used with the |-XOverloadedStrings| extension to support string literals of types other than |String| - for instance, with the |IsString Text| instance in scope, you can write |"foobar" :: Text| and it will compile. For reference, the standard libraries supply the following instances of |IsString|: |instance (a ~ Char) => IsString [a] instance IsString a => IsString (Const a b) instance IsString a => IsString (Identity a) | Proposal I propose adding a new instance of |IsString| for |NonEmpty| lists of characters. |NonEmpty| has been in |base| starting from version 4.9, and for that reason people are starting to use it more often - e.g. the popular |megaparsec| library defines its custom error type like this: |data ErrorItem t = Tokens (NonEmpty t) -- ^ Non-empty stream of tokens | Label (NonEmpty Char) -- ^ Label (cannot be empty) | EndOfInput -- ^ End of input | Here |NonEmpty Char| stands for “non-empty string”. Without the |IsString| instance users are forced to write non-empty strings in an inconvenient and awkward-looking way (e.g. |Label ('f' :| "oobar")|); the instance makes |Label "foobar"| an acceptable notation, thus making the |NonEmpty Char| type more viable for use in libraries and user-facing APIs. Implementation Here’s a sample implementation: |instance (a ~ Char) => IsString (NonEmpty a) where fromString (a:as) = a :| as fromString "" = errorWithoutStackTrace "NonEmpty.fromString: empty string" | This mirrors the |IsList| instance for |NonEmpty|. (The reason I haven’t used |fromList| is that I want the error message to say “fromString” instead of “fromList”.) If this is accepted, I can make a patch.