expected :: ProcessedData
expected = ProcessedData fields $
  Map.fromList [ (day1, day1record)
               , (day2, day2record)
               ]
expected :: ProcessedData
expected = ProcessedData fields $
  Map.fromList [ (day1, day1record)
               , (day2, day2record)
               ]
expected = ProcessedData fields $
  Map.fromList [ (day1, day1record)
               , (day2, day2record)
               ]