-- |-- Utils for dealing with integer numbers.modulePostgreSQL.Binary.IntegralwhereimportPostgreSQL.Binary.PreludeimportqualifiedData.ByteStringasB{-# INLINABLE pack #-}pack::(Bitsa,Numa)=>B.ByteString->apack=B.foldl'(\nh->shiftLn8.|.fromIntegralh)0{-# INLINE unpackBySize #-}unpackBySize::(Bitsa,Integrala)=>Int->a->B.ByteStringunpackBySizenx=B.pack$mapf$reverse[0..n-1]wherefs=fromIntegral$shiftRx(8*s)