Commit 0a9fba4f8e9d32c6028e6be0c671a20661c67755 - tansu-berkeleydb

Added a haddock Getty Ritter 8 years ago

1 changed file(s) with 4 addition(s) and 1 deletion(s). Collapse all Expand all

-1

Database/Tansu/Backend/BerkeleyDb.hs less more

1		module Database.Tansu.Backend.BerkeleyDb ~~where~~
	1	module Database.Tansu.Backend.BerkeleyDb
	2	(withBerkeleyDb) where
2	3
3	4	import Database.Berkeley.Db
4	5	import Data.ByteString (ByteString)

14	15	bdbGet db key =
15	16	db_get [] db Nothing key
16	17
	18	-- \| Open or create a database at the supplied path
	19	-- using the BerkeleyDB library.
17	20	withBerkeleyDb :: FilePath -> (TansuDb -> IO a) -> IO a
18	21	withBerkeleyDb path comp = do
19	22	createDirectoryIfMissing True path