diff --git a/State.hs b/State.hs
index 336bd47..5fca0be 100644
--- 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)