buildRecord :: RecordInfo -> Record -> Builder
buildRecord recordInfo@(RecordInfo fields) (Record fieldValues) =
    if hasVariableData recordInfo
    then error "putRecord: Variable data unimplemented"
    else mconcat $ Prelude.zipWith buildValue fields fieldValues
buildRecord :: RecordInfo -> Record -> Builder
buildRecord recordInfo@(RecordInfo fields) (Record fieldValues) =
    if hasVariableData recordInfo
    then error "putRecord: Variable data unimplemented"
    else mconcat $ Prelude.zipWith buildValue fields fieldValues
buildRecord recordInfo@(RecordInfo fields) (Record fieldValues) =
    if hasVariableData recordInfo
    then error "putRecord: Variable data unimplemented"
    else mconcat $ Prelude.zipWith buildValue fields fieldValues