lazyFold.fs

let handleEx ex = 
    printfn "Exception: %s" (ex.ToString())
    false

let DelDir dir = 
    try 
        Directory.Delete(dir, true)
        true
    with ex -> handleEx ex

let DelDirs dirs = List.fold (fun acc dir -> acc && DelDir dir) true dirs

open ExtCore.Control.Collections
open System
let delDir dir = Choice.attempt (fun _ -> IO.Directory.Delete(dir, true))
let delDirs dirs = dirs |> Choice.Seq.iter delDir