anchor.diff:                  activeState
                   |> Furnace.addSourceFile (n, Some dir , build, link, None, None)
                   |> ignore
  -        
  +
   
           return cont
       }
  
positive.code:      let! name = results.TryGetResult <@ RenameProjectArgs.Name @>
       let! newName = results.TryGetResult <@ RenameProjectArgs.Rename @>
  
       return cont   
      }
  
  
  
negative.code:     maybe {
          let! name = results.TryGetResult <@ RemoveFolderArgs.Name @>
          let project = results.TryGetResult <@ RemoveFolderArgs.Project @>
          let project' =
              match project with
              | Some p -> Some p
              | None -> Furnace.tryFindProject name
          match project' with
          | None -> traceWarning "Project not found"
  