readAllFile :: (PosixLike m, PosixInStr s) => FilePath -> m s
readAllFile fp = fmap fromByteString $ bracket open closeFd readAll
  where
    open = openFd fp ReadOnly Nothing defaultFileFlags

-- | Write all of a file.
readAllFile :: (PosixLike m, PosixInStr s) => FilePath -> m s
readAllFile fp = fmap fromByteString $ bracket open closeFd readAll
  where
    open = openFd fp ReadOnly Nothing defaultFileFlags

-- | Write all of a file.
readAllFile fp = fmap fromByteString $ bracket open closeFd readAll
  where
    open = openFd fp ReadOnly Nothing defaultFileFlags

-- | Write all of a file.