Movatterモバイル変換

modulePostgreSQL.Binary.Prelude(moduleExports,LazyByteString,ByteStringBuilder,LazyText,TextBuilder,bug,bottom,mapLeft,joinMap,)where-- base-prelude-------------------------importBasePreludeasExportshiding(assert,Data,fail)-- transformers-------------------------importControl.Monad.Trans.State.StrictasExportshiding(liftCallCC,liftCatch)importControl.Monad.Trans.ReaderasExportshiding(liftCallCC,liftCatch)importControl.Monad.Trans.ClassasExportsimportData.Functor.IdentityasExports-- bytestring-------------------------importData.ByteStringasExports(ByteString)-- text-------------------------importData.TextasExports(Text)-- vector-------------------------importData.VectorasExports(Vector)-- scientific-------------------------importData.ScientificasExports(Scientific)-- uuid-------------------------importData.UUIDasExports(UUID)-- time-------------------------importData.TimeasExports-- placeholders-------------------------importDevelopment.PlaceholdersasExports-- loch-th-------------------------importDebug.Trace.LocationTHasExports-- custom-------------------------importqualifiedData.ByteString.LazyimportqualifiedData.ByteString.BuilderimportqualifiedData.Text.LazyimportqualifiedData.Text.Lazy.BuilderimportqualifiedDebug.Trace.LocationTHtypeLazyByteString=Data.ByteString.Lazy.ByteStringtypeByteStringBuilder=Data.ByteString.Builder.BuildertypeLazyText=Data.Text.Lazy.TexttypeTextBuilder=Data.Text.Lazy.Builder.Builderbug=[e|$(Debug.Trace.LocationTH.failure).(msg<>)|]wheremsg="A \"postgresql-binary\" package bug: "::Stringbottom=[e|$bug"Bottom evaluated"|]{-# INLINE mapLeft #-}mapLeft::(a->b)->Eitherax->EitherbxmapLeftf=either(Left.f)RightjoinMap::Monadm=>(a->mb)->ma->mbjoinMapf=join.liftMf