Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Binary/BinIOMode_.hs
module NHC.Binary ( {-type-} BinIOMode(..) ) where data BinIOMode = RO | WO | RW deriving (Eq, Ord, Enum)