Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Char/IsControl.hs
module Char where isControl :: Char -> Bool isControl c = c < ' ' || (c >= '\DEL' && c <= '\x9f')