anchor.diff:                                  RepositoryOwner:string;
                                   RepositoryName:string;
                                   File:string;
  +                                Language:string;
                                   RevealTemplatePath:string;
                                   OutputPath:string;
  -                                Language:string;
                               }
   
       let rec parseCommandLineRec args optionsSoFar = 
  
positive.code: ﻿namespace GitHubAnimator
  
  module Program =
  
      open Animator
  
      type CommandLineOption = 
  
negative.code:                printf "usage: GitHubAnimator [-o[wner] repositoryOwner] [-r[epository] repositoryName] [-f[ile] fileName] [-out[putpath] outputPath] [-template[path] revealTemplatePath] [-l[anguage] language]"
                 optionsSoFar 
  
      
      let animatorParametersFromCommandLineOptions options =
          {
              Owner = options.RepositoryOwner;
              Repository = options.RepositoryName;
              File =  options.File;
              Language = options.Language;
           } 
  
      [<EntryPoint>]
      let main argv = 
          let options =
              { 
                  RepositoryOwner = ""; 
                  RepositoryName = ""; 
                  File = "";
                  Language = "";
                  RevealTemplatePath = ".\\reveal.js";
                  OutputPath = ".\\Presentation";
              }
              |> parseCommandLineRec (argv |> List.ofArray)
  
          createClient
              |> createPresentation (animatorParametersFromCommandLineOptions options)
              |> savePresentation 
                  options.RevealTemplatePath 
                  options.OutputPath
  