Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Char/IsLatin1.hs
module Char where isLatin1 :: Char -> Bool isLatin1 c = c < '\xFF'
