diff --git a/bower.json b/bower.json index aad0b66..8d32d74 100644 --- a/bower.json +++ b/bower.json @@ -21,16 +21,16 @@ "tests" ], "dependencies": { - "purescript-generics": "^3.1.0", - "purescript-nonempty": "^3.0.0", - "purescript-profunctor": "^2.0.0", - "purescript-strings": "^2.0.2", - "purescript-these": "^2.0.0", - "purescript-transformers": "^2.0.1", - "purescript-colors": "^2.0.0", - "purescript-console": "^2.0.0" + "purescript-generics": "^4.0.0", + "purescript-nonempty": "^4.0.0", + "purescript-profunctor": "^3.0.0", + "purescript-strings": "^3.0.0", + "purescript-these": "^3.0.0", + "purescript-transformers": "^3.2.0", + "purescript-colors": "^3.0.0", + "purescript-console": "^3.0.0" }, "devDependencies": { - "purescript-exceptions": "^2.0.0" + "purescript-exceptions": "^3.0.0" } } diff --git a/package.json b/package.json index 9b5fc3f..f7d4a05 100644 --- a/package.json +++ b/package.json @@ -6,9 +6,9 @@ "test": "pulp test" }, "devDependencies": { - "pulp": "^9.0.1", - "purescript-psa": "^0.3.9", - "purescript": "^0.10.1", - "rimraf": "^2.5.0" + "pulp": "^11.0.0", + "purescript-psa": "^0.5.1", + "purescript": "^0.11.4", + "rimraf": "^2.6.1" } } diff --git a/src/CSS/Common.purs b/src/CSS/Common.purs index 40a3ae5..02faa42 100644 --- a/src/CSS/Common.purs +++ b/src/CSS/Common.purs @@ -73,5 +73,5 @@ browsers = Prefixed -- | Syntax for CSS function call. -call :: forall s. (IsString s, Monoid s) => s -> s -> s +call :: forall s. IsString s => Monoid s => s -> s -> s call fn arg = fn <> fromString "(" <> arg <> fromString ")" diff --git a/test/Main.purs b/test/Main.purs index f8f4169..0243204 100644 --- a/test/Main.purs +++ b/test/Main.purs @@ -48,10 +48,10 @@ nestedNodesWithEmptyParent = render do fromString "#parent" ? do fromString "#child" ? display block -assertEqual :: forall a. (Eq a, Show a) => a -> a -> Eff (err :: EXCEPTION) Unit +assertEqual :: forall a. Eq a => Show a => a -> a -> Eff (exception :: EXCEPTION) Unit assertEqual x y = unless (x == y) <<< throwException <<< error $ "Assertion failed: " <> show x <> " /= " <> show y -main :: Eff (err :: EXCEPTION) Unit +main :: Eff (exception :: EXCEPTION) Unit main = do renderedInline example1 `assertEqual` Just "color: hsl(0.0, 100.0%, 50.0%); display: block" renderedInline example2 `assertEqual` Just "display: inline-block"