added Text.hs