Remove text encoding dependency

Author: AlexaDeWit

bower.json

@@ -16,13 +16,12 @@
     "purescript-arraybuffer-types": "^2.0.0",
     "purescript-maybe": "^4.0.0",
     "purescript-effect": "^2.0.0",
-    "purescript-uint": "^4.0.0",
-    "purescript-text-encoding": "^0.0.9"
+    "purescript-uint": "^4.0.0"
   },
   "devDependencies": {
     "purescript-debug": "^4.0.0",
     "purescript-quickcheck": "^5.0.0",
     "purescript-partial": "^2.0.0",
     "purescript-unicode": "^4.0.1"
   }
-}
+}

package.json

@@ -1,12 +1,9 @@
 {
   "name": "purescript-arraybuffer",
-  "version": "7.0.0",
+  "version": "9.0.0",
   "main": "index.js",
   "repository": "[email protected]:jacereda/purescript-arraybuffer.git",
   "author": "https://github.com/jacereda",
   "license": "MIT",
-  "devDependencies": {
-    "text-encoding": "^0.6.4"
-  }
-
-}
+  "devDependencies": {}
+}

src/Data/ArrayBuffer/ArrayBuffer.purs

@@ -3,20 +3,11 @@ module Data.ArrayBuffer.ArrayBuffer ( create
                                     , slice
                                     , fromArray
                                     , fromIntArray
-                                    , fromString
-                                    , decodeToString
                                    ) where
 
-import Data.ArrayBuffer.DataView (whole, buffer)
-import Data.ArrayBuffer.Typed (asUint8Array, dataView)
 import Data.ArrayBuffer.Types (ArrayBuffer, ByteOffset, ByteLength)
-import Data.Either (Either)
 import Data.Function.Uncurried (Fn3, runFn3)
-import Data.TextDecoder (decodeUtf8)
-import Data.TextEncoder (encodeUtf8)
 import Effect (Effect)
-import Effect.Exception (Error)
-import Prelude ((<<<))
 
 
 -- | Create an `ArrayBuffer` with the given capacity.
@@ -35,18 +26,4 @@ slice = runFn3 sliceImpl
 foreign import fromArray :: Array Number -> ArrayBuffer
 
 -- | Convert an array into an `ArrayBuffer` representation.
-foreign import fromIntArray :: Array Int -> ArrayBuffer
-
--- | Convert a UTF-8 encoded `ArrayBuffer` into a `String`.
--- | Serves as a quick utility function for a common use-case. For more use-cases,
--- | see: [purescript-text-encoding](https://pursuit.purescript.org/packages/purescript-text-encoding/0.0.8)
--- | Requires the TextDecoder class available. A polyfill can be found in the npm package "text-encoding"
-decodeToString :: ArrayBuffer -> Either Error String
-decodeToString = decodeUtf8 <<< asUint8Array <<< whole
-
--- | Convert a  `String` into a UTF-8 encoded `ArrayBuffer`.
--- | Serves as a quick utility function for a common use-case. For more use-cases,
--- | see: [purescript-text-encoding](https://pursuit.purescript.org/packages/purescript-text-encoding/0.0.8)
--- | Requires the TextDecoder class available. A polyfill can be found in the npm package "text-encoding"
-fromString :: String -> ArrayBuffer
-fromString = buffer <<< dataView <<< encodeUtf8
+foreign import fromIntArray :: Array Int -> ArrayBuffer

test/Input.purs

@@ -6,12 +6,9 @@ import Effect (Effect)
 import Data.ArrayBuffer.ArrayBuffer as AB
 import Data.ArrayBuffer.DataView as DV
 import Data.ArrayBuffer.Typed as TA
-import Data.Either (fromRight)
 import Data.Maybe (Maybe(..), isNothing)
 import Data.UInt (fromInt, pow)
-import Partial.Unsafe (unsafePartial)
-import Test.QuickCheck (quickCheck', (<?>), quickCheck)
-import Test.Input (WellFormedInput(..))
+import Test.QuickCheck (quickCheck', (<?>))
 
 
 assertEffEquals :: forall a. Eq a => Show a => a -> Effect a -> Effect Unit
@@ -27,19 +24,6 @@ assertEquals expected actual = do
 
 main :: Effect Unit
 main = do
-  assertEquals "釺椱�밸造ə㊡癥闗" (unsafePartial $ fromRight $ AB.decodeToString $ AB.fromString "釺椱�밸造ə㊡癥闗")
-
-  quickCheck
-    \(WellFormedInput s) ->
-        let
-          result = (unsafePartial $ fromRight $ AB.decodeToString $ AB.fromString s)
-        in
-          s == result
-          <?> "Isormorphic arraybuffer conversion with string failed for input\n"
-          <> s
-          <> " which, after the round trip, result in\n"
-          <> result
-
   ab4 <- AB.create 4
   ab8 <- AB.create 8
   assertEquals 4 $ AB.byteLength ab4
@@ -52,9 +36,6 @@ main = do
   assertEquals (Just 2) $ DV.byteLength <$> DV.slice 2 2 ab4
   assertEquals 4 $ AB.byteLength $ AB.fromArray [1.0, 2.0, 3.0, 4.0]
   assertEquals 4 $ AB.byteLength $ AB.fromIntArray [1, 2, 3, 4]
-  assertEquals 4 $ AB.byteLength $ AB.fromString "hola"
-  assertEquals 5 $ AB.byteLength $ AB.fromString "hóla"
-  assertEquals 7 $ AB.byteLength $ AB.fromString "hóla¡"
   assertEquals 8 $ AB.byteLength $ DV.buffer $ DV.whole ab8
   assertEquals 8 $ AB.byteLength $ DV.buffer $ TA.dataView $ TA.asInt8Array $ DV.whole ab8