changed Char to CodePoint

Author: CarstenKoenig

src/Data/Argonaut/Decode/Class.purs

@@ -12,7 +12,8 @@ import Data.Int (fromNumber)
 import Data.List (List(..), (:), fromFoldable)
 import Data.Map as M
 import Data.Maybe (maybe, Maybe(..))
-import Data.String.CodeUnits (charAt)
+import Data.String (CodePoint)
+import Data.String.CodePoints (codePointAt)
 import Data.Traversable (traverse)
 import Data.Tuple (Tuple(..))
 import Foreign.Object as FO
@@ -63,10 +64,10 @@ instance decodeJsonString :: DecodeJson String where
 instance decodeJsonJson :: DecodeJson Json where
   decodeJson = Right
 
-instance decodeJsonChar :: DecodeJson Char where
+instance decodeJsonChar :: DecodeJson CodePoint where
   decodeJson j =
     maybe (Left $ "Expected character but found: " <> stringify j) Right
-      =<< charAt 0 <$> decodeJson j
+      =<< codePointAt 0 <$> decodeJson j
 
 instance decodeForeignObject :: DecodeJson a => DecodeJson (FO.Object a) where
   decodeJson

src/Data/Argonaut/Encode/Class.purs

@@ -8,7 +8,7 @@ import Data.Int (toNumber)
 import Data.List (List(..), (:), toUnfoldable)
 import Data.Map as M
 import Data.Maybe (Maybe(..))
-import Data.String.CodeUnits (singleton)
+import Data.String.CodePoints (CodePoint, codePointFromChar, singleton)
 import Data.Tuple (Tuple(..))
 import Foreign.Object as FO
 
@@ -48,9 +48,12 @@ instance encodeJsonJString :: EncodeJson String where
 instance encodeJsonJson :: EncodeJson Json where
   encodeJson = identity
 
-instance encodeJsonChar :: EncodeJson Char where
+instance encodeJsonCodePoint :: EncodeJson CodePoint where
   encodeJson = encodeJson <<< singleton
 
+instance encodeJsonChar :: EncodeJson Char where
+  encodeJson = encodeJson <<< codePointFromChar
+
 instance encodeJsonArray :: EncodeJson a => EncodeJson (Array a) where
   encodeJson json = fromArray (encodeJson <$> json)