Movatterモバイル変換

modulePostgreSQLBinary.Prelude(moduleExports,LazyByteString,LazyText,bug,bottom,partial,)where-- base-prelude-------------------------importBasePreludeasExports-- transformers-------------------------importControl.Monad.Trans.State.StrictasExportshiding(liftCallCC,liftCatch)importControl.Monad.Trans.ReaderasExportshiding(liftCallCC,liftCatch)importControl.Monad.Trans.ClassasExports-- text-------------------------importData.TextasExports(Text)-- bytestring-------------------------importData.ByteStringasExports(ByteString)-- scientific-------------------------importData.ScientificasExports(Scientific)-- uuid-------------------------importData.UUIDasExports(UUID)-- time-------------------------importData.TimeasExports-- placeholders-------------------------importDevelopment.PlaceholdersasExports-- custom-------------------------importqualifiedDebug.Trace.LocationTHimportqualifiedData.Text.LazyimportqualifiedData.ByteString.LazytypeLazyByteString=Data.ByteString.Lazy.ByteStringtypeLazyText=Data.Text.Lazy.Textbug=[e|$(Debug.Trace.LocationTH.failure).(msg<>)|]wheremsg="A \"postgresql-binary\" package bug: "::Stringbottom=[e|$bug"Bottom evaluated"|]partial::Alternativef=>(a->Bool)->a->fapartialpx=ifpxthenpurexelseempty