/usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/_EnumInRange.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/_EnumInRange.hs


module Prelude where

import _FromEnum

_enumInRange :: (a,a) -> a -> Bool
_enumInRange (c,c') ci =    _fromEnum c  <= _fromEnum ci
                         && _fromEnum ci <= _fromEnum c'

(Return to Plan 9 Home Page)