anchor.diff:                             Hour: int;
                              DayOfWeek: string}
   
  -    let moveResultsIndexName = "move-results"
       let processedMovesIndexName = "processed-moves"
   
       let private processedMove quotation =
  
positive.code: ﻿namespace Muffin.Pictures.Archiver
  
  open Muffin.Pictures.Archiver.Report
  
  module ElasticReporter =
      open Nest
      open System
      open System.Linq.Expressions
      open Microsoft.FSharp.Linq.RuntimeHelpers
  
      type MoveResult = { Result: string;
                          Date: DateTime }
  
      type ProcessedMove = { MoveRequest: MoveRequest;
                             Year: int;
  
negative.code:             |> LeafExpressionConverter.QuotationToLambdaExpression
              |> unbox<Expression<Func<ProcessedMove, obj>>>
  
  
      let createProcessedMovesIndex (client:ElasticClient) =
          let moveRequestDestination =
              <@ System.Func<_, _>(fun n -> box n.MoveRequest.Destination) @>
  
  