blob: 8a60e8eca4c8be93e35042fa9e95b297f5a196b0 (
plain)
1
2
3
4
5
6
7
8
|
-- !!! Irrefutable patterns + guards
module Read003 where
import GHC.List; import Prelude hiding (null)
~(a,b,c) | nullity b = a
| nullity c = a
| otherwise = a
where
nullity = null
|