Skip to content

Instantly share code, notes, and snippets.

@vgaltes

vgaltes/parser.fs

Created December 13, 2015 11:40
Show Gist options
  • Save vgaltes/468be9aeb97952305551 to your computer and use it in GitHub Desktop.
Save vgaltes/468be9aeb97952305551 to your computer and use it in GitHub Desktop.
Download ZIP
Extracting the commit line info
Raw
parser.fs
type CommitLineCsv = CsvProvider<"LinesAdded\tLinesDeleted\tFile", HasHeaders = false, Schema = "LinesAdded(int option),LinesDeleted(int option),FileName">
let extractCommitedFilesInfo c =
let commitFileLine = CommitLineCsv.Parse(c).Rows |> Seq.head
{LinesAdded = commitFileLine.LinesAdded; LinesDeleted = commitFileLine.LinesDeleted; FileName = commitFileLine.FileName}
let fileRows = fileLines |> Array.map extractCommitedFilesInfo
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment