anchor.diff:          let link = results.TryGetResult <@ AddFileArgs.Link @> |> Option.map (fun _ -> name)
           let below = results.TryGetResult <@ AddFileArgs.Below @>
           let above = results.TryGetResult <@ AddFileArgs.Above @>
  -        let project' = 
  +        let project' =
               match project with
  -            | Some p -> Some p 
  +            | Some p -> Some p
               | None -> Furnace.tryFindProject name
           match project' with
           | None -> traceWarning "Project not found"
           | Some project ->
               let activeState = Furnace.loadFsProject project
  -            let n = 
  -                if Path.IsPathRooted name then 
  -                    relative name (activeState.ProjectPath + Path.DirectorySeparatorChar.ToString()) 
  -                else 
  +            let n =
  +                if Path.IsPathRooted name then
  +                    relative name (activeState.ProjectPath + Path.DirectorySeparatorChar.ToString())
  +                else
                       relative (Path.GetFullPath name) (activeState.ProjectPath + Path.DirectorySeparatorChar.ToString())
               let name' = n |> Path.GetFileName
               let dir = n |> Path.GetDirectoryName
  
positive.code:         let! name = results.TryGetResult <@ MoveFileArgs.Name @>
          let up = results.TryGetResult <@ MoveFileArgs.Up @>
          let down = results.TryGetResult <@ MoveFileArgs.Down @>
          let project' = 
              match proj with
              | Some p -> Some p 
              | None -> Furnace.tryFindProject name
          match project' with
          | None -> traceWarning "Project not found"
          | Some project ->
              let activeState = Furnace.loadFsProject project
              let n = 
                  if Path.IsPathRooted name then 
                      relative name (activeState.ProjectPath + Path.DirectorySeparatorChar.ToString()) 
                  else 
                      relative (Path.GetFullPath name) (activeState.ProjectPath + Path.DirectorySeparatorChar.ToString())
  
              match up, down with
  
negative.code:     let paket = not ^ results.Contains <@ NewProjectArgs.No_Paket @>
      let fake = not ^ results.Contains <@ NewProjectArgs.No_Fake @>
      Templates.Project.New projectName projectDir templateName paket fake
      Some cont
  
  
  let newFile cont (results : ParseResults<_>) =
  