Testsuite: pass '-s --no-print-directory' to MAKE
[ghc.git] / testsuite / tests / module / mod111.hs
1 -- !!! Hiding an abstract (Prelude) type
2 module M where
3
4 import Prelude hiding ( Char )
5 import Data.Char hiding ( ord, Char )
6 import qualified Data.Char ( ord )
7
8 type Char = Int
9
10 ord :: Char -> Int
11 ord x = Data.Char.ord (chr x) + 1
12