Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Binary/BinIOMode.gc
module NHC.Binary ( {-type-} BinIOMode(..) ) where data BinIOMode = RO | WO | RW deriving (Eq, Ord, Enum) %dis binIOMode x = <fromEnum/toEnum> (int x)
