From 7f0b52fbc795057b4c1ec0b30f05b5aa31f108af Mon Sep 17 00:00:00 2001
From: Thomas Honeyman <admin@thomashoneyman.com>
Date: Fri, 5 Nov 2021 13:24:12 +0100
Subject: [PATCH] Update for PureScript 0.14 (#10)

---
 bower.json                           | 17 ++++++-----------
 package.json                         |  9 ++++++---
 src/Halogen/VDom/StringRenderer.purs |  2 +-
 3 files changed, 13 insertions(+), 15 deletions(-)

diff --git a/bower.json b/bower.json
index 26d991a..4261278 100644
--- a/bower.json
+++ b/bower.json
@@ -3,18 +3,13 @@
   "license": "Apache-2.0",
   "repository": {
     "type": "git",
-    "url": "git://github.com/slamdata/purescript-halogen-vdom-string-renderer.git"
+    "url": "https://github.com/purescript-halogen/purescript-halogen-vdom-string-renderer.git"
   },
-  "ignore": [
-    "**/.*",
-    "node_modules",
-    "bower_components",
-    "output"
-  ],
+  "ignore": ["**/.*", "node_modules", "bower_components", "output"],
   "dependencies": {
-    "purescript-prelude": "^4.1.1",
-    "purescript-halogen-vdom": "^6.1.0",
-    "purescript-ordered-collections": "^1.6.1",
-    "purescript-foreign": "^5.0.0"
+    "purescript-prelude": "^5.0.0",
+    "purescript-halogen-vdom": "^7.0.0",
+    "purescript-ordered-collections": "^2.0.0",
+    "purescript-foreign": "^6.0.0"
   }
 }
diff --git a/package.json b/package.json
index 02525dc..69a39dd 100644
--- a/package.json
+++ b/package.json
@@ -5,9 +5,12 @@
     "build": "pulp build -- --censor-lib --strict"
   },
   "devDependencies": {
-    "pulp": "^14.0.0",
-    "purescript-psa": "^0.7.3",
-    "purescript": "^0.13.6",
+    "pulp": "^15.0.0",
+    "purescript-psa": "^0.8.2",
+    "purescript": "^0.14.1",
     "rimraf": "^3.0.2"
+  },
+  "dependencies": {
+    "bower": "^1.8.12"
   }
 }
diff --git a/src/Halogen/VDom/StringRenderer.purs b/src/Halogen/VDom/StringRenderer.purs
index a3ba2c9..9b4c1a4 100644
--- a/src/Halogen/VDom/StringRenderer.purs
+++ b/src/Halogen/VDom/StringRenderer.purs
@@ -47,7 +47,7 @@ render getTagType renderAttrs renderWidget = go
       as = renderAttrs attrs
       as' = maybe as (\(Namespace ns) -> "xmlns=\"" <> escape ns <> "\"" <> if S.null as then "" else " " <> as) maybeNamespace
     in
-      "<" <> name <> (if S.null as then "" else " ") <> as <>
+      "<" <> name <> (if S.null as' then "" else " ") <> as' <>
         if A.null children
         then if getTagType elemName == SelfClosingTag then "/>" else "></" <> name <> ">"
         else ">" <> S.joinWith "" (map go children) <> "</" <> name <> ">"