-- |-- Utils for dealing with numbers.modulePostgreSQLBinary.IntegralwhereimportPostgreSQLBinary.PreludeimportqualifiedData.ByteStringasB{-# INLINE byteSize #-}byteSize::(Bitsa)=>a->IntbyteSize=(`div`8).bitSize{-# INLINE pack #-}pack::(Bitsa,Numa)=>B.ByteString->apack=B.foldl'(\nh->(n`shiftL`8).|.fromIntegralh)0{-# INLINE unpack #-}unpack::(Bitsa,Integrala)=>a->B.ByteStringunpackx=unpackBySize(byteSizex)x{-# INLINE unpackBySize #-}unpackBySize::(Bitsa,Integrala)=>Int->a->B.ByteStringunpackBySizenx=B.pack$mapf$reverse[0..n-1]wherefs=fromIntegral$shiftRx(8*s)