projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a986760c3d16576c3f4fa5352526ce0a811f2d60
[ghc-hetmet.git]
/
ghc
/
compiler
/
tests
/
reader
/
read003.hs
1
--!!! Irrefutable patterns + guards
2
module Read003 where
3
4
~(a,b,c) | nullity b = a
5
| nullity c = a
6
| otherwise = a
7
where
8
nullity = null