@@ -0,0 +1,26 @@
1+-----------------------------------------------------------------------------
2+-- |
3+-- Module : Database.PostgreSQL.Simple.LargeObjects
4+-- Copyright : (c) 2011 Leon P Smith
5+-- License : BSD3
6+--
7+-- Maintainer : leon@melding-monads.com
8+--
9+-----------------------------------------------------------------------------
10+
11+module Database.PostgreSQL.Simple.LargeObjects
12+ ( loImport
13+ , loExport
14+ , Oid(..)
15+ ) where
16+
17+import Database.PostgreSQL.LibPQ (Oid(..))
18+import qualified Database.PostgreSQL.LibPQ as PQ
19+import Database.PostgreSQL.Simple.Implementation
20+import Foreign.C.Types(CInt)
21+
22+loImport :: Connection -> FilePath -> IO (Maybe Oid)
23+loImport conn path = withConnection conn $ \c -> PQ.loImport c path
24+
25+loExport :: Connection -> Oid -> FilePath -> IO CInt
26+loExport conn oid path = withConnection conn $ \c -> PQ.loExport c oid path