Fix encode only replacing first occurrences (#254)

* Fix encode only replacing first occurrences

Author: jy14898

CHANGELOG.md

@@ -9,6 +9,7 @@ Breaking changes:
 New features:
 
 Bugfixes:
+- Fixed `encode` not replacing all instances of special characters (#254 by @jy14898)
 
 ## [v2021-08-25.1](https://github.com/purescript/trypurescript/releases/tag/v2021-08-25.1) - 2021-08-25
 

staging/src/TryPureScript.purs

@@ -20,18 +20,18 @@ module TryPureScript
 import Prelude
 import Data.Foldable (class Foldable, foldMap)
 import Data.String (joinWith)
-import Data.String.Common (replace)
+import Data.String.Common (replaceAll)
 import Data.String.Pattern (Pattern(..), Replacement(..))
 import Effect (Effect)
 
 foreign import setInnerHTML :: String -> Effect Unit
 
 encode :: String -> String
 encode =
-  replace (Pattern "<") (Replacement "&lt;")
-  <<< replace (Pattern ">") (Replacement "&gt;")
-  <<< replace (Pattern "&") (Replacement "&amp;")
-  <<< replace (Pattern "\"") (Replacement "&quot;")
+  replaceAll (Pattern "<") (Replacement "&lt;")
+  <<< replaceAll (Pattern ">") (Replacement "&gt;")
+  <<< replaceAll (Pattern "&") (Replacement "&amp;")
+  <<< replaceAll (Pattern "\"") (Replacement "&quot;")
 
 foreign import withConsoleImpl
   :: forall a