regiuleishon :: (Bool, Integer) -> Integer
regiuleishon (True, _) = 0
reguleishon (False, x) | x >= 0 = 1
| otherwise = -1
Why doesn't this code work? The program says:
Exception: pruebas.hs:13:1-26: Non-exhaustive patterns in function regiuleishon
I try to put -> (True, 2) and the response is 0 but if I put (False, 200) :( the exception appears