Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeIO/ReadFile.hs
module Prelude(readFile) where import IO readFile :: FilePath -> IO String readFile fp = openFile fp ReadMode >>= \ handle -> hGetContents handle
