コード例 #1
0
 public Subsystem <Unit> CopySetting(string target) =>
 from _1 in mainValidation.CheckDirectoryExist(new DirectoryInfo(target))
 let targetPath = @$ "{target}\UpgradeSetting.json"
                  from _2 in mainValidation.CheckFileNotExist(new FileInfo(targetPath))
                  let _3 = fun <string, string>(fs.CopyEmbeddedFile)("FilesUpgrade.Resource.UpgradeSetting.json", targetPath)
                           select unit;