File tree Expand file tree Collapse file tree 3 files changed +10
-10
lines changed Expand file tree Collapse file tree 3 files changed +10
-10
lines changed Original file line number Diff line number Diff line change 2222 " package.json"
2323 ],
2424 "dependencies" : {
25- "purescript-css" : " ^3.3 .0" ,
26- "purescript-halogen" : " ^3 .0.0"
25+ "purescript-css" : " ^4.0 .0" ,
26+ "purescript-halogen" : " ^4 .0.0"
2727 }
2828}
Original file line number Diff line number Diff line change 66 "build" : " pulp build -- --censor-lib --strict"
77 },
88 "devDependencies" : {
9- "pulp" : " ^11.0 .0" ,
10- "purescript" : " 0.11.4 " ,
11- "purescript-psa" : " ^0.5 .0"
9+ "pulp" : " ^12.2 .0" ,
10+ "purescript" : " 0.12.0 " ,
11+ "purescript-psa" : " ^0.6 .0"
1212 }
1313}
Original file line number Diff line number Diff line change @@ -16,9 +16,9 @@ import Data.Either (Either)
1616import Data.Foldable (foldMap )
1717import Data.Maybe (Maybe (..), fromMaybe )
1818import Data.MediaType (MediaType (..))
19- import Data.StrMap as SM
2019import Data.String (joinWith )
2120import Data.Tuple (Tuple (..))
21+ import Foreign.Object as Object
2222
2323import Halogen.HTML as HH
2424import 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
You can’t perform that action at this time.
0 commit comments