From 750613a6f3961d516d2ff5acdf469001425add67 Mon Sep 17 00:00:00 2001
From: justinwoo <moomoowoo@gmail.com>
Date: Sat, 19 May 2018 20:17:47 +0300
Subject: [PATCH] changes for 0.12

---
 bower.json                |  4 ++--
 package.json              |  6 +++---
 src/Halogen/HTML/CSS.purs | 10 +++++-----
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/bower.json b/bower.json
index b64f243..58bb3cb 100644
--- a/bower.json
+++ b/bower.json
@@ -22,7 +22,7 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-css": "^3.3.0",
-    "purescript-halogen": "^3.0.0"
+    "purescript-css": "^4.0.0",
+    "purescript-halogen": "^4.0.0"
   }
 }
diff --git a/package.json b/package.json
index 7c9eb96..50cf23d 100644
--- a/package.json
+++ b/package.json
@@ -6,8 +6,8 @@
     "build": "pulp build -- --censor-lib --strict"
   },
   "devDependencies": {
-    "pulp": "^11.0.0",
-    "purescript": "0.11.4",
-    "purescript-psa": "^0.5.0"
+    "pulp": "^12.2.0",
+    "purescript": "0.12.0",
+    "purescript-psa": "^0.6.0"
   }
 }
diff --git a/src/Halogen/HTML/CSS.purs b/src/Halogen/HTML/CSS.purs
index 1b58ad2..8fedd15 100644
--- a/src/Halogen/HTML/CSS.purs
+++ b/src/Halogen/HTML/CSS.purs
@@ -16,9 +16,9 @@ import Data.Either (Either)
 import Data.Foldable (foldMap)
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.MediaType (MediaType(..))
-import Data.StrMap as SM
 import Data.String (joinWith)
 import Data.Tuple (Tuple(..))
+import Foreign.Object as Object
 
 import Halogen.HTML as HH
 import Halogen.HTML.Elements as HE
@@ -41,11 +41,11 @@ style =
     <<< rules
     <<< runS
   where
-  toString ∷ SM.StrMap String → String
-  toString = joinWith "; " <<< SM.foldMap (\key val → [ key <> ": " <> val])
+  toString ∷ Object.Object String → String
+  toString = joinWith "; " <<< Object.foldMap (\key val → [ key <> ": " <> val])
 
-  rules ∷ Array Rule → SM.StrMap String
-  rules rs = SM.fromFoldable properties
+  rules ∷ Array Rule → Object.Object String
+  rules rs = Object.fromFoldable properties
     where
     properties ∷ Array (Tuple String String)
     properties = mapMaybe property rs >>= collect >>> rights