Solve 'The reject() function' kata

Author: borisskert

src/Reject.hs

@@ -0,0 +1,6 @@
+module Reject (reject) where
+
+-- https://www.codewars.com/kata/52988f3f7edba9839c00037d/train/haskell
+
+reject :: (a -> Bool) -> [a] -> [a]
+reject predicate = filter (not . predicate)

test/RejectSpec.hs

@@ -0,0 +1,9 @@
+module RejectSpec (spec) where
+
+import Reject (reject)
+import Test.Hspec
+
+spec :: Spec
+spec = do
+  it "example test" $ do
+    reject even [1 .. 6] `shouldBe` [1, 3, 5]