hsc -> hs

kadena-io · Jun 7, 2022 · 33fd854 · 33fd854
1 parent f5f8215
commit 33fd854
Showing 1 changed file with 0 additions and 15 deletions.
diff --git a/src/Database/RocksDB/C.hsc → src/Database/RocksDB/C.hs b/src/Database/RocksDB/C.hsc → src/Database/RocksDB/C.hs
@@ -14,12 +14,6 @@ import Foreign
 import Foreign.C.Types
 import Foreign.C.String
 
-#ifdef mingw32_HOST_OS
-#include <rocksdb\c.h>
-#else
-#include <rocksdb/c.h>
-#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