data BackupEntry =
BackupByteString [FilePath] ByteString
| BackupBlob [FilePath] BlobId
newtype CabalFileText = CabalFileText { cabalFileByteString :: ByteString }
Both ByteStrings here are lazy ones. Isn't it asking for trouble with file descriptors?..