new (stream : Stream) =
let reader = new BinaryReader (stream)
let length = reader.ReadByte () |> int
- Metadata ([for i in 1..length -> reader.ReadString (), reader.ReadString ()])
+ Metadata ([for _ in 1..length -> reader.ReadString (), reader.ReadString ()])
// Write metadata to a stream.
member this.WriteTo (stream : Stream) =
// Decrypt metadata.
inputStream.Position <- 32L + 256L + 256L
use cryptoStream = Crypto.decryptAES keyAES iv inputStream
- let metadata = Metadata (cryptoStream)
+ let metadata = Metadata cryptoStream
// Create the file and write its content and metadata.
let filePath = Path.Combine (targetDirPath, metadata.get MetadataKeys.filename)
let modificationTime = DateTime (metadata.get MetadataKeys.modificationTime |> int64)
- let fileInfo = FileInfo (filePath)
+ let fileInfo = FileInfo filePath
using (fileInfo.Create ()) <| fun outputStream -> cryptoStream.CopyTo outputStream
fileInfo.LastWriteTimeUtc <- modificationTime
\ No newline at end of file