diff --git a/src/Database/RocksDB/C.hsc b/src/Database/RocksDB/C.hs similarity index 97% rename from src/Database/RocksDB/C.hsc rename to src/Database/RocksDB/C.hs index ca4d693..64d0776 100644 --- a/src/Database/RocksDB/C.hsc +++ b/src/Database/RocksDB/C.hs @@ -14,12 +14,6 @@ import Foreign import Foreign.C.Types import Foreign.C.String -#ifdef mingw32_HOST_OS -#include -#else -#include -#endif - data RocksDB data LCache data LComparator @@ -51,15 +45,6 @@ type Val = CString newtype CompressionOpt = CompressionOpt { compressionOpt :: CInt } deriving (Eq, Show) -#{enum CompressionOpt, CompressionOpt - , noCompression = 0 - , snappyCompression = 1 - , zlibCompression = 2 - , bz2Compression = 3 - , lz4Compression = 4 - , lz4hcCompression = 5 - } - foreign import ccall safe "rocksdb\\c.h rocksdb_open" c_rocksdb_open :: OptionsPtr -> DBName -> ErrPtr -> IO RocksDBPtr