testsuite/tests/ghc-regress/module/mod109.hs


1
2
3
4
5
6
7

-- !!! redefining and using Prelude entities
module A( null, nonNull ) where
import Prelude hiding( null ) 
import qualified Prelude
null, nonNull :: Int -> Bool
null    x = x == 0
nonNull x = not (Prelude.null [x]) && not (null x)