@@ -440,112 +440,112 @@ module Unpacker =
440440 let header = bs.[ 0 ]
441441 //個々の戻り値いらなくなったので後で変えるべきだけど手を抜いてスルー
442442 if ( header &&& 0b10000000 uy) = 0 uy then
443- _ unpackPositiveFixint bs sequencials values
443+ _ unpackPositiveFixint bs sequencials values|> ignore
444444 _ unpack()
445445 elif ( header &&& 0b11110000 uy) = 0b10000000 uy then
446- _ unpackFixmap bs sequencials
446+ _ unpackFixmap bs sequencials|> ignore
447447 _ unpack()
448448 elif ( header &&& 0b11110000 uy) = 0b10010000 uy then
449- _ unpackFixarray bs sequencials
449+ _ unpackFixarray bs sequencials|> ignore
450450 _ unpack()
451451 elif ( header &&& 0b11100000 uy) = 0b10100000 uy then
452- _ unpackFixstr bs sequencials values
452+ _ unpackFixstr bs sequencials values|> ignore
453453 _ unpack()
454454 elif ( header = Format.Nil) then
455- _ unpackNil bs sequencials values
455+ _ unpackNil bs sequencials values|> ignore
456456 _ unpack()
457457 elif ( header = Format.False) then
458- _ unpackFalse bs sequencials values
458+ _ unpackFalse bs sequencials values|> ignore
459459 _ unpack()
460460 elif ( header = Format.True) then
461- _ unpackTrue bs sequencials values
461+ _ unpackTrue bs sequencials values|> ignore
462462 _ unpack()
463463 elif header = Format.Bin8 then
464- _ unpackBin8 bs sequencials values
464+ _ unpackBin8 bs sequencials values|> ignore
465465 _ unpack()
466466 elif header = Format.Bin16 then
467- _ unpackBin16 bs sequencials values
467+ _ unpackBin16 bs sequencials values|> ignore
468468 _ unpack()
469469 elif header = Format.Bin32 then
470- _ unpackBin32 bs sequencials values
470+ _ unpackBin32 bs sequencials values|> ignore
471471 _ unpack()
472472 elif header = Format.Ext8 then
473- _ unpackExt8 bs sequencials values
473+ _ unpackExt8 bs sequencials values|> ignore
474474 _ unpack()
475475 elif header = Format.Ext16 then
476- _ unpackExt16 bs sequencials values
476+ _ unpackExt16 bs sequencials values|> ignore
477477 _ unpack()
478478 elif header = Format.Ext32 then
479- _ unpackExt32 bs sequencials values
479+ _ unpackExt32 bs sequencials values|> ignore
480480 _ unpack()
481481 elif header = Format.Float32 then
482- _ unpackFloat32 bs sequencials values
482+ _ unpackFloat32 bs sequencials values|> ignore
483483 _ unpack()
484484 elif header = Format.Float64 then
485- _ unpackFloat64 bs sequencials values
485+ _ unpackFloat64 bs sequencials values|> ignore
486486 _ unpack()
487487 elif header = Format.UInt8 then
488- _ unpackUInt8 bs sequencials values
488+ _ unpackUInt8 bs sequencials values|> ignore
489489 _ unpack()
490490 elif header = Format.UInt16 then
491- _ unpackUInt16 bs sequencials values
491+ _ unpackUInt16 bs sequencials values|> ignore
492492 _ unpack()
493493 elif header = Format.UInt32 then
494- _ unpackUInt32 bs sequencials values
494+ _ unpackUInt32 bs sequencials values|> ignore
495495 _ unpack()
496496 elif header = Format.UInt64 then
497- _ unpackUInt64 bs sequencials values
497+ _ unpackUInt64 bs sequencials values|> ignore
498498 _ unpack()
499499 elif header = Format.Int8 then
500- _ unpackInt8 bs sequencials values
500+ _ unpackInt8 bs sequencials values|> ignore
501501 _ unpack()
502502 elif header = Format.Int16 then
503- _ unpackInt16 bs sequencials values
503+ _ unpackInt16 bs sequencials values|> ignore
504504 _ unpack()
505505 elif header = Format.Int32 then
506- _ unpackInt32 bs sequencials values
506+ _ unpackInt32 bs sequencials values|> ignore
507507 _ unpack()
508508 elif header = Format.Int64 then
509- _ unpackInt64 bs sequencials values
509+ _ unpackInt64 bs sequencials values|> ignore
510510 _ unpack()
511511 elif header = Format.FixExt1 then
512- _ unpackFixExt1 bs sequencials values
512+ _ unpackFixExt1 bs sequencials values|> ignore
513513 _ unpack()
514514 elif header = Format.FixExt2 then
515- _ unpackFixExt2 bs sequencials values
515+ _ unpackFixExt2 bs sequencials values|> ignore
516516 _ unpack()
517517 elif header = Format.FixExt4 then
518- _ unpackFixExt4 bs sequencials values
518+ _ unpackFixExt4 bs sequencials values|> ignore
519519 _ unpack()
520520 elif header = Format.FixExt8 then
521- _ unpackFixExt8 bs sequencials values
521+ _ unpackFixExt8 bs sequencials values|> ignore
522522 _ unpack()
523523 elif header = Format.FixExt16 then
524- _ unpackFixExt16 bs sequencials values
524+ _ unpackFixExt16 bs sequencials values|> ignore
525525 _ unpack()
526526 elif header = Format.Str8 then
527- _ unpackStr8 bs sequencials values
527+ _ unpackStr8 bs sequencials values|> ignore
528528 _ unpack()
529529 elif header = Format.Str16 then
530- _ unpackStr16 bs sequencials values
530+ _ unpackStr16 bs sequencials values|> ignore
531531 _ unpack()
532532 elif header = Format.Str32 then
533- _ unpackStr32 bs sequencials values
533+ _ unpackStr32 bs sequencials values|> ignore
534534 _ unpack()
535535 elif header = Format.Array16 then
536- _ unpackArray16 bs sequencials
536+ _ unpackArray16 bs sequencials|> ignore
537537 _ unpack()
538538 elif header = Format.Array32 then
539- _ unpackArray32 bs sequencials
539+ _ unpackArray32 bs sequencials|> ignore
540540 _ unpack()
541541 elif header = Format.Map16 then
542- _ unpackMap16 bs sequencials
542+ _ unpackMap16 bs sequencials|> ignore
543543 _ unpack()
544544 elif header = Format.Map32 then
545- _ unpackMap32 bs sequencials
545+ _ unpackMap32 bs sequencials|> ignore
546546 _ unpack()
547547 elif ( header &&& 0b11100000 uy) = 0b11100000 uy then
548- _ unpackNegativeFixint bs sequencials values
548+ _ unpackNegativeFixint bs sequencials values|> ignore
549549 _ unpack()
550550 else
551551 ()
0 commit comments