anchor.diff:  ﻿namespace Koffee
   
  +open System
   open System.IO
   open Koffee
   
  
positive.code:             try
                  let folders = Directory.EnumerateDirectories wp |> Seq.map this.FolderNode
                  let files = Directory.EnumerateFiles wp |> Seq.map FileInfo |> Seq.map this.FileNode
                  Seq.append folders files |> Seq.toList
              with | ex -> this.ErrorNode ex (this.Parent path) |> List.singleton
  
      member this.FileNode file = {
  
negative.code:         let error = ex.Message.Split('\r', '\n').[0]
          {
              Path = path
              Name = sprintf "<%s>" error
              Type = NodeType.Error
              Modified = None
              Size = None
  