Merge pull request #11 from berdario/master

Purescript 0.9 update

Author: jdegoes

bower.json

@@ -20,7 +20,7 @@
     "test"
   ],
   "dependencies": {
-    "purescript-css": "^0.6.0",
-    "purescript-halogen": "^0.8.0"
+    "purescript-css": "^1.0.0",
+    "purescript-halogen": "^0.9.0"
   }
 }

package.json

@@ -5,8 +5,8 @@
     "build": "pulp build --censor-lib --strict"
   },
   "devDependencies": {
-    "pulp": "^8.2.0",
-    "purescript": "^0.8.5",
+    "pulp": "^9.0.1",
+    "purescript": "^0.9.1",
     "purescript-psa": "^0.3.8",
     "rimraf": "^2.5.2"
   }

src/Halogen/HTML/CSS.purs

@@ -9,7 +9,7 @@ import Prelude
 
 import Data.Array (mapMaybe)
 import Data.Either (Either(), either)
-import Data.List (fromList, toList)
+import Data.List (toUnfoldable, fromFoldable)
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.String (joinWith)
 import Data.StrMap as SM
@@ -31,7 +31,7 @@ runStyles :: Styles -> SM.StrMap String
 runStyles (Styles m) = m
 
 instance stylesIsProp :: IsProp Styles where
-  toPropString _ _ (Styles m) = joinWith "; " $ (\(Tuple key value) -> key <> ": " <> value) <$> fromList (SM.toList m)
+  toPropString _ _ (Styles m) = joinWith "; " $ (\(Tuple key value) -> key <> ": " <> value) <$> toUnfoldable (SM.toList m)
 
 -- | Render a set of rules as an inline style.
 -- |
@@ -46,7 +46,7 @@ style :: forall i. CSS -> Prop i
 style = prop (propName "style") (Just $ attrName "style") <<< Styles <<< rules <<< runS
   where
   rules :: Array Rule -> SM.StrMap String
-  rules rs = SM.fromList (toList properties)
+  rules rs = SM.fromList (fromFoldable properties)
     where
     properties :: Array (Tuple String String)
     properties = mapMaybe property rs >>= collect >>> rights