Fix warnings revealed by v0.14.1 PS release (#133)

Co-authored-by: Thomas Honeyman <[email protected]>

Author: JordanMartinez

CHANGELOG.md

@@ -11,6 +11,7 @@ New features:
 Bugfixes:
 
 Other improvements:
+- Fix warnings revealed by v0.14.1 PS release (#133 by @JordanMartinez)
 
 ## [v5.0.0](https://github.com/purescript-contrib/purescript-css/releases/tag/v5.0.0) - 2021-02-26
 

spago.dhall

@@ -1,15 +1,21 @@
 { name = "css"
 , dependencies =
-  [ "colors"
+  [ "arrays"
+  , "colors"
   , "console"
   , "effect"
+  , "either"
   , "exceptions"
+  , "foldable-traversable"
+  , "maybe"
   , "nonempty"
+  , "prelude"
   , "profunctor"
   , "psci-support"
   , "strings"
   , "these"
   , "transformers"
+  , "tuples"
   ]
 , packages = ./packages.dhall
 , sources = [ "src/**/*.purs", "test/**/*.purs" ]

src/CSS/Property.purs

@@ -83,7 +83,7 @@ instance valString :: Val String where
   value = fromString
 
 instance valUnit :: Val Unit where
-  value u = fromString ""
+  value _ = fromString ""
 
 -- When `b` is Unit, the rendered value will have an extra
 --   space appended to end. Shouldn't hurt. I'd fix if I knew how.

src/CSS/Render.purs

@@ -87,7 +87,7 @@ query' :: MediaQuery -> Array App -> Array Rule -> Rendered
 query' q sel rs = Just <<< That <<< Sheet $ mediaQuery q <> " { " <> fromMaybe "" (renderedSheet $ rules sel rs) <> " }\n"
 
 mediaQuery :: MediaQuery -> String
-mediaQuery (MediaQuery no ty fs) = "@media " <> mediaType ty <> foldl1 (<>) ((" and " <> _) <<< feature <$> fs)
+mediaQuery (MediaQuery _ ty fs) = "@media " <> mediaType ty <> foldl1 (<>) ((" and " <> _) <<< feature <$> fs)
 
 mediaType :: MediaType -> String
 mediaType (MediaType (Value s)) = plain s