runtime/src/Data/Bond/Internal/FastBinaryProto.hs
Reduce duplication Open
Open
let et = getWireType (Proxy :: Proxy a)
- Read upRead up
- Exclude checks
Found
let et = getWireType (Proxy :: Proxy a)
(t, n) <- getListHeader
unless (t == et) $
fail $
"invalid element tag " ++
bondTypeName t ++
" in list field, " ++ bondTypeName et ++ " expected"
Perhaps
Combine with runtime/src/Data/Bond/Internal/FastBinaryProto.hs:211:5