anchor.diff:                                      TyreKind = parseTyreKind s.Tires
                                       Economy = parseEconomy s.Driving_style
                                       AirCon = parseAirCon s.Ac
  -                                    BcConsumption = Option.someIf (fun x -> x <> 0.) (float s.Bc_consumption)
  -                                    BcAvgSpeed = Option.someIf (fun x -> x <> 0.) (float s.Bc_avg_speed)
  +                                    BcConsumption = Option.filter (fun x -> x <> 0.) (Some (float s.Bc_consumption))
  +                                    BcAvgSpeed = Option.filter (fun x -> x <> 0.) (Some (float s.Bc_avg_speed))
  +                                    RouteSplit = routeSplit s.Route_city s.Route_country s.Route_motorway
  +                                    Notes = s.Notes
                                   })
               |> Seq.sortBy (fun f -> f.Date)
               |> JsonConvert.SerializeObject
   
  +let setJson = Suave.Writers.setHeader "Content-Type" "application/json"
  +
   let webPart =
       choose [
  -        path "/" >=> OK data
  +        path "/" >=> OK data >=> setJson
       ]
   
   startWebServer defaultConfig webPart
  
positive.code:     | 0 -> AcOff
      | p -> AcOn (byte p)
  
  module Option =
      let someIf predicate value =
          match predicate value with
          | true -> Some value
          | _ -> None
  
  type Motostat = CsvProvider<"motostat48277.csv", ";">
  let sourceData = Motostat.Load "motostat48277.csv"
  // let x = sourceData.Rows |> Seq.head
  // x.
  let data = sourceData.Rows
              |> Seq.map (fun s -> {
                                      Date = s.Date
  
negative.code: open FSharp.Data
  open Newtonsoft.Json
  
  type Percentage = byte
  
  type FuelingKind = Full | Half
  type AirCon = AcOff | AcOn of Percentage
  type TyreKind = Summer | Winter | Universal
  type Economy = High | Average | Low
  
  type RouteSplit = {
      City : Percentage
      Country : Percentage
      Motorway : Percentage
  }
  
  type Fueling = {
      Date : DateTime
  