containsNum :: String -> Bool
containsNum [] = False
containsNum [x] = isDigit x
containsNum [x | xs] = if isDigit x
                then True
                else containsNum xs

test.hs:11:12: Parse error in pattern