Merge pull request #21 from justinwoo/compiler/0.12

changes for 0.12

Author: cryogenian

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"
   }
 }

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"
   }
 }

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