Add encoder for NonEmptyString

Author: d0liver

src/Data/Argonaut/Encode/Class.purs

@@ -4,6 +4,7 @@ import Data.Argonaut.Encode.Encoders
 
 import Data.Argonaut.Core (Json, fromObject)
 import Data.Array.NonEmpty (NonEmptyArray)
+import Data.String.NonEmpty (NonEmptyString)
 import Data.Either (Either)
 import Data.Identity (Identity)
 import Data.List (List)
@@ -58,6 +59,9 @@ instance encodeJsonJson :: EncodeJson Json where
 instance encodeJsonCodePoint :: EncodeJson CodePoint where
   encodeJson = encodeCodePoint
 
+instance encodeNonEmptyString :: EncodeJson NonEmptyString where
+  encodeJson = encodeNonEmptyString
+
 instance encodeJsonNonEmpty_Array :: (EncodeJson a) => EncodeJson (NonEmpty Array a) where
   encodeJson = encodeNonEmpty_Array encodeJson
 

src/Data/Argonaut/Encode/Encoders.purs

@@ -12,6 +12,8 @@ import Data.Int (toNumber)
 import Data.List (List(..), (:), toUnfoldable)
 import Data.List.NonEmpty as NEL
 import Data.List.Types (NonEmptyList)
+import Data.String.NonEmpty (NonEmptyString)
+import Data.String.NonEmpty as NonEmptyString
 import Data.Map as M
 import Data.Maybe (Maybe(..))
 import Data.NonEmpty (NonEmpty(..))
@@ -60,6 +62,9 @@ encodeString = fromString
 encodeCodePoint :: CodePoint -> Json
 encodeCodePoint = encodeString <<< CP.singleton
 
+encodeNonEmptyString :: NonEmptyString -> Json
+encodeNonEmptyString = fromString <<< NonEmptyString.toString
+
 encodeNonEmpty_Array :: forall a. (a -> Json) -> NonEmpty Array a -> Json
 encodeNonEmpty_Array encoder (NonEmpty h t) = encodeArray encoder (Arr.cons h t)