dgfitch · November 15, 2010 16:54
diff --git a/visitor.fs b/visitor.fs
 let rec visitor dir =
  seq { yield! 
          ( try Directory.GetFiles(dir)
            with ex -> 
              (* actually do something *)
              Array.empty )
        for subdir in Directory.GetDirectories(dir) do yield! visitor subdir}
	let rec visitor dir =
	seq { yield!
	( try Directory.GetFiles(dir)
	with ex ->
	(* actually do something *)
	Array.empty )
	for subdir in Directory.GetDirectories(dir) do yield! visitor subdir}