anchor.diff:          member this.Usage =
               match this with
               | Solution _ -> "List the files in this solution"
  +            
  +
  +//-----------------------------------------------------------------
  +// Move commands
  +//-----------------------------------------------------------------
  +
  +type MoveCommands =
  +    | [<First>][<CLIArg "file">] File
  +with
  +    interface IArgParserTemplate with
  +        member this.Usage =
  +            match this with
  +            | File -> "Move file in project"
  +
  +type MoveFileArgs =
  +    | [<First>][<CLIAlt "-p">] Project of string
  +    | [<CLIAlt "-n">] Name of string
  +    | [<CLIArg "--up">] [<CLIAlt "-u">] Up
  +    | [<CLIArg "--down">] [<CLIAlt "-d">] Down
  +    
  +    interface IArgParserTemplate with
  +        member this.Usage =
  +            match this with
  +            | Name _-> "File name"
  +            | Project _ -> "Project name"
  +            | Up -> "Moves file up"
  +            | Down -> "Moves file down"
   
   //-----------------------------------------------------------------
   // Update commands
  
positive.code:         | ListCommands.Reference -> execCommand listReference subArgs
      | _ -> Some Help
      
  
  
  //-----------------------------------------------------------------
  
negative.code: let listProject (results : ParseResults<_>) =
      maybe {
          let! solution = results.TryGetResult <@ ListProjectArgs.Solution @>
          traceWarning "not implemented yet" //TODO
          return Continue
      }
  
  