Skip to content

Commit c8cfe45

Browse files
committed
changes for 0.12
1 parent 7b6bfbe commit c8cfe45

File tree

2 files changed

+7
-7
lines changed

2 files changed

+7
-7
lines changed

bower.json

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@
2222
"package.json"
2323
],
2424
"dependencies": {
25-
"purescript-css": "^3.3.0",
26-
"purescript-halogen": "^3.0.0"
25+
"purescript-css": "justinwoo/purescript-css#compiler/0.12",
26+
"purescript-halogen": "#compiler/0.12"
2727
}
2828
}

src/Halogen/HTML/CSS.purs

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -16,9 +16,9 @@ import Data.Either (Either)
1616
import Data.Foldable (foldMap)
1717
import Data.Maybe (Maybe(..), fromMaybe)
1818
import Data.MediaType (MediaType(..))
19-
import Data.StrMap as SM
2019
import Data.String (joinWith)
2120
import Data.Tuple (Tuple(..))
21+
import Foreign.Object as Object
2222

2323
import Halogen.HTML as HH
2424
import Halogen.HTML.Elements as HE
@@ -41,11 +41,11 @@ style =
4141
<<< rules
4242
<<< runS
4343
where
44-
toString SM.StrMap String String
45-
toString = joinWith "; " <<< SM.foldMap (\key val [ key <> ": " <> val])
44+
toString Object.Object String String
45+
toString = joinWith "; " <<< Object.foldMap (\key val [ key <> ": " <> val])
4646

47-
rules Array Rule SM.StrMap String
48-
rules rs = SM.fromFoldable properties
47+
rules Array Rule Object.Object String
48+
rules rs = Object.fromFoldable properties
4949
where
5050
properties Array (Tuple String String)
5151
properties = mapMaybe property rs >>= collect >>> rights

0 commit comments

Comments
 (0)