diff --git a/bower.json b/bower.json index 3e9eccc..04f61e8 100644 --- a/bower.json +++ b/bower.json @@ -16,19 +16,28 @@ "dependencies": { "purescript-argonaut-core": "^6.0.0", "purescript-arrays": "^6.0.0", + "purescript-bifunctors": "^5.0.0", "purescript-effect": "^3.0.0", + "purescript-either": "^5.0.0", + "purescript-foldable-traversable": "^5.0.0", "purescript-foreign-object": "^3.0.0", "purescript-identity": "^5.0.0", "purescript-integers": "^5.0.0", + "purescript-lists": "^6.0.0", "purescript-maybe": "^5.0.0", "purescript-nonempty": "^6.0.0", "purescript-ordered-collections": "^2.0.0", "purescript-prelude": "^5.0.0", - "purescript-record": "^3.0.0" + "purescript-record": "^3.0.0", + "purescript-strings": "^5.0.0", + "purescript-tuples": "^6.0.0" }, "devDependencies": { "purescript-assert": "^5.0.0", "purescript-console": "^5.0.0", - "purescript-quickcheck": "^7.0.0" + "purescript-exceptions": "^5.0.0", + "purescript-gen": "^3.0.0", + "purescript-quickcheck": "^7.0.0", + "purescript-transformers": "^5.0.0" } } diff --git a/spago.dhall b/spago.dhall index 8b6f069..796eeb7 100644 --- a/spago.dhall +++ b/spago.dhall @@ -6,11 +6,17 @@ [ "argonaut-core" , "arrays" , "assert" + , "bifunctors" , "console" , "effect" + , "either" + , "exceptions" + , "foldable-traversable" , "foreign-object" + , "gen" , "identity" , "integers" + , "lists" , "maybe" , "nonempty" , "ordered-collections" @@ -18,6 +24,9 @@ , "psci-support" , "quickcheck" , "record" + , "strings" + , "transformers" + , "tuples" ] , packages = ./packages.dhall , sources = [ "src/**/*.purs", "test/**/*.purs" ] diff --git a/test/Test/Main.purs b/test/Test/Main.purs index 9d6367b..e1a4df8 100644 --- a/test/Test/Main.purs +++ b/test/Test/Main.purs @@ -185,7 +185,7 @@ combinatorsCheck = do obj <- genObj let appended = (key := val) ~> obj case toObject appended >>= FO.lookup key of - Just value -> pure Success + Just _ -> pure Success _ -> pure (Failed "failed to lookup key") propAssocAppendOptional :: Gen Result @@ -195,7 +195,7 @@ combinatorsCheck = do obj <- genObj let appended = (key :=? maybeVal) ~>? obj pure case toObject appended >>= FO.lookup key of - Just value -> isJust maybeVal === true + Just _ -> isJust maybeVal === true _ -> isNothing maybeVal === true propGetJObjectField :: Gen Result