fixed non exhaustive on rmFirstMatch

2019-05-18 19:46:00 +12:00 · 2019-05-18 19:46:00 +12:00 · 43cd96e6cc
commit 43cd96e6cc
parent fe97ea1432
1 changed files with 1 additions and 0 deletions
--- a/State.hs
+++ b/State.hs
@ -39,6 +39,7 @@ numPut :: Either MainCharacter MainEva -> PutCards -> Integer
 numPut c p = toInteger $ length $ filter (\x -> (fst x) == c) p

 rmFirstMatch :: [a] -> (a -> Bool) -> [a]
+rmFirstMatch [] _ = []
 rmFirstMatch (l:ls) f
   | f l = ls
   | otherwise = (l : rmFirstMatch ls f)