leveldb-haskell-fork 0.3.4.2 → 0.3.4.3

raw patch · 4 files changed

+15/−15 lines, 4 files

Files

leveldb-haskell-fork.cabal +1/−1
src/Database/LevelDB/Base.hs +7/−7
src/Database/LevelDB/C.hsc +4/−4
src/Database/LevelDB/MonadResource.hs +3/−3

leveldb-haskell-fork.cabal view

@@ -1,5 +1,5 @@ name:                leveldb-haskell-fork-version:             0.3.4.2+version:             0.3.4.3 synopsis:            Haskell bindings to LevelDB homepage:            http://github.com/kim/leveldb-haskell bug-reports:         http://github.com/kim/leveldb-haskell/issues

src/Database/LevelDB/Base.hs view

@@ -51,7 +51,7 @@     , destroy     , repair     , approximateSize-    , version+--    , version      -- * Iteration     , module Database.LevelDB.Iterator@@ -237,12 +237,12 @@  -- | Return the runtime version of the underlying LevelDB library as a (major, -- minor) pair.-version :: MonadIO m => m (Int, Int)-version = do-    major <- liftIO c_leveldb_major_version-    minor <- liftIO c_leveldb_minor_version--    return (cIntToInt major, cIntToInt minor)+--version :: MonadIO m => m (Int, Int)+-- version = do+--    major <- liftIO c_leveldb_major_version+--    minor <- liftIO c_leveldb_minor_version+--+--    return (cIntToInt major, cIntToInt minor)  createBloomFilter :: MonadIO m => Int -> m BloomFilter createBloomFilter i = do

src/Database/LevelDB/C.hsc view

@@ -348,8 +348,8 @@ -- Version -- -foreign import ccall unsafe "leveldb/c.h leveldb_major_version"-  c_leveldb_major_version :: IO CInt+--foreign import ccall unsafe "leveldb/c.h leveldb_major_version"+--  c_leveldb_major_version :: IO CInt -foreign import ccall unsafe "leveldb/c.h leveldb_minor_version"-  c_leveldb_minor_version :: IO CInt+--foreign import ccall unsafe "leveldb/c.h leveldb_minor_version"+--  c_leveldb_minor_version :: IO CInt

src/Database/LevelDB/MonadResource.hs view

@@ -44,7 +44,7 @@     , destroy     , repair     , approximateSize-    , version+--    , version      -- * Iteration     , Iterator@@ -288,5 +288,5 @@  -- | Return the runtime version of the underlying LevelDB library as a (major, -- minor) pair.-version :: MonadResource m => m (Int, Int)-version = Base.version+--version :: MonadResource m => m (Int, Int)+--version = Base.version