Fix warnings revealed by PureScript v0.14.1

spago.dhall

@@ -1,17 +1,30 @@
 { name = "formatters"
 , dependencies =
   [ "aff"
+  , "arrays"
   , "assert"
+  , "bifunctors"
   , "console"
+  , "control"
   , "datetime"
   , "effect"
-  , "fixed-points"
+  , "either"
+  , "enums"
+  , "foldable-traversable"
+  , "integers"
   , "lists"
+  , "math"
+  , "maybe"
+  , "newtype"
   , "numbers"
+  , "ordered-collections"
   , "parsing"
+  , "partial"
   , "prelude"
   , "psci-support"
+  , "strings"
   , "transformers"
+  , "tuples"
   ]
 , packages = ./packages.dhall
 , sources = [ "src/**/*.purs", "test/**/*.purs" ]

src/Data/Formatter/Internal.purs

@@ -11,7 +11,7 @@ repeat ∷ ∀ a. Monoid a ⇒ a → Int → a
 repeat = repeat' mempty
   where
   repeat' ∷ a → a → Int → a
-  repeat' accum part count
+  repeat' accum _ count
     | count < one = accum
   repeat' accum part count =
     repeat' (accum <> part) part (count - one)

test/src/Interval.purs

@@ -31,10 +31,10 @@ intervalTest = describe "Data.Formatter.Interval" do
   prop "should unformat RecurringInterval" arbRecurringInterval \({ str, interval }) → do
     (unformatRecurringInterval str) `shouldEqual` (Right interval)
 
-  prop "format (unformat s) = s" arbRecurringInterval \({ str, interval, formatedStr }) → do
+  prop "format (unformat s) = s" arbRecurringInterval \({ str, formatedStr }) → do
     (formatRecurringInterval <$> (unformatRecurringInterval str)) `shouldEqual` (Right formatedStr)
 
-  prop "unformat (format s) = s" arbRecurringInterval \({ str, interval, formatedStr }) → do
+  prop "unformat (format s) = s" arbRecurringInterval \({ interval }) → do
     (unformatRecurringInterval $ formatRecurringInterval interval) `shouldEqual` (Right interval)