Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Char/ToLower.hs
module Char where import IsUpper toLower :: Char -> Char toLower c | isUpper c = toEnum ((fromEnum c - fromEnum 'A') + fromEnum 'a') | otherwise = c
