testsuite/tests/module/mod111.hs


1
2
3
4
5
6
7
8
9
10
11
12

-- !!! Hiding an abstract (Prelude) type
module M where

import Prelude   hiding ( Char )
import Data.Char hiding ( ord, Char )
import qualified Data.Char ( ord )

type Char = Int

ord :: Char -> Int
ord x = Data.Char.ord (chr x) + 1