I am trying to write a haskell function that takes a list of dates and a month and returns how many dates in the list match the given month : this is what I have so far and it doesn't seem to be working


numInMonth :: [(Int,Int,Int)] -> Int -> Int

numInMonth x [] = x

numInMonth x (y:ys)

minList1 (x:xs) = currentMin x xs

currentMax :: Int -> [Int] -> Int

currentMax x [] = x

currentMax x (y:ys)

| x >= y = currentMax x ys

| otherwise = currentMax y ys

maxList1 :: [Int] -> Int

maxList1 (x:xs) = currentMax x xs