diff --git a/Database/Junk/GDBM.hsc b/Database/Junk/GDBM.hsc
new file mode 100644
--- /dev/null
+++ b/Database/Junk/GDBM.hsc
@@ -0,0 +1,110 @@
+{-# LANGUAGE ForeignFunctionInterface,OverloadedStrings,TypeFamilies,MultiParamTypeClasses,FlexibleInstances,EmptyDataDecls #-}
+module Database.Junk.GDBM (
+  version,
+  withReader, withWriter, withNewDB
+  ) where
+
+import qualified Data.ByteString as BS
+import qualified Data.ByteString.Unsafe as BS
+import Data.Conduit (yield)
+
+import Data.Word
+
+import Control.Applicative
+import Control.Monad (void)
+import Control.Monad.Trans.Resource
+import Control.Monad.Trans (lift)
+
+import Foreign.C.Types (CInt,CChar)
+import Foreign.C.String (newCString, CString)
+import Foreign.Marshal.Alloc (free, finalizerFree,alloca)
+import Foreign.Ptr (nullPtr, nullFunPtr, FunPtr, Ptr, castPtr)
+import Foreign.ForeignPtr
+import Foreign.Storable
+
+import Database.KVS
+
+#include <gdbm.h>
+
+data GDBMFile
+newtype GDBM = GDBM { unGDBM:: (Ptr GDBMFile) }
+
+
+withNewDB :: FilePath -> Int -> Int -> (GDBM -> ResourceT IO a) -> ResourceT IO a
+withNewDB fs bs mode f = withGDBM fs bs (#const GDBM_NEWDB) mode f
+{-# INLINE withNewDB #-}
+
+
+withReader :: FilePath -> Int -> Int -> (GDBM -> ResourceT IO a) -> ResourceT IO a
+withReader fs bs mode f = withGDBM fs bs (#const GDBM_READER) mode f 
+{-# INLINE withReader #-}
+
+
+withWriter :: FilePath -> Int -> Int -> Bool -> (GDBM -> ResourceT IO a) -> ResourceT IO a
+withWriter fs bs mode cr f = withGDBM fs bs (if cr then (#const GDBM_WRCREAT) else (#const GDBM_WRITER)) mode f
+{-# INLINE withWriter #-}
+
+
+withGDBM :: FilePath -> Int -> Int -> Int -> (GDBM -> ResourceT IO a) -> ResourceT IO a
+withGDBM fs bs flags mode f = do
+  (_, fs') <- allocate (newCString fs) free
+  (_, h) <- allocate 
+            (gdbm_open fs' (fromIntegral bs) flags (fromIntegral mode) nullFunPtr)
+            (gdbm_close)
+  f $ GDBM h
+
+
+
+instance KVS GDBM IO BS.ByteString BS.ByteString where
+  insert (GDBM dbf) k v = 
+    BS.unsafeUseAsCStringLen k $ \(kptr,klen) -> 
+    BS.unsafeUseAsCStringLen v $ \(vptr,vlen) -> 
+    void $ gdbm_store dbf klen kptr vlen vptr (#const GDBM_REPLACE)
+  accept (GDBM dbf) k f g = 
+    BS.unsafeUseAsCStringLen k $ \(kptr,klen) ->
+    alloca $ \vlen -> do
+      vptr <- gdbm_fetch dbf klen kptr vlen
+      if vptr == nullPtr 
+        then f
+        else do vlen' <- peek vlen
+                BS.unsafePackCStringFinalizer (castPtr vptr) vlen' (free vptr) >>= g
+  delete (GDBM dbf) k =
+    BS.unsafeUseAsCStringLen k $ \(kptr,klen) -> gdbm_delete dbf klen kptr >>= return . Just . (== 0)
+
+instance EnumeratableKVS GDBM IO BS.ByteString BS.ByteString where
+  keys (GDBM dbf) = do
+    (klen, kptr) <- lift $ lift $ alloca $ \klen -> do
+      kptr <- gdbm_firstkey dbf klen
+      klen' <- peek klen
+      return (klen', kptr)
+    if kptr == nullPtr
+      then return ()
+      else (lift $ lift $
+            BS.unsafePackCStringFinalizer (castPtr kptr) klen (free kptr))
+           >>= yield
+           >> go klen kptr
+    where
+      go klen kptr = do
+        (new_klen, new_kptr) <- lift $ lift $ alloca $ \new_klen -> do
+          new_kptr <- gdbm_nextkey dbf klen kptr new_klen
+          new_klen' <- peek new_klen
+          return (new_klen', new_kptr)
+        if new_kptr == nullPtr
+          then return ()
+          else (lift $ lift $
+                BS.unsafePackCStringFinalizer (castPtr new_kptr) new_klen (free new_kptr))
+               >>= yield
+               >> go new_klen new_kptr
+               
+
+foreign import ccall "gdbm.h &gdbm_version" version :: CString
+foreign import ccall "gdbm.h gdbm_open" gdbm_open :: CString -> Int -> Int -> Int -> FunPtr (IO ()) -> IO (Ptr GDBMFile)
+foreign import ccall "gdbm.h gdbm_close" gdbm_close :: Ptr GDBMFile -> IO ()
+foreign import ccall "junk_gdbm_store" gdbm_store :: Ptr GDBMFile -> Int -> Ptr CChar -> Int -> Ptr CChar -> Int -> IO Int
+foreign import ccall "junk_gdbm_fetch" gdbm_fetch :: Ptr GDBMFile -> Int -> Ptr CChar -> Ptr Int -> IO (Ptr CChar)
+foreign import ccall "junk_gdbm_delete" gdbm_delete :: Ptr GDBMFile -> Int -> Ptr CChar -> IO Int
+foreign import ccall "junk_gdbm_firstkey" gdbm_firstkey :: Ptr GDBMFile -> Ptr Int -> IO (Ptr CChar)
+foreign import ccall "junk_gdbm_nextkey" gdbm_nextkey :: Ptr GDBMFile -> Int -> Ptr CChar -> Ptr Int -> IO (Ptr CChar)
+
+
+
diff --git a/Database/Junk/GDBM_wrap.c b/Database/Junk/GDBM_wrap.c
new file mode 100644
--- /dev/null
+++ b/Database/Junk/GDBM_wrap.c
@@ -0,0 +1,37 @@
+#include <gdbm.h>
+
+int junk_gdbm_store(GDBM_FILE dbf, int klen, char* kptr, int vlen, char* vptr, int n)
+{
+	datum k = { kptr, klen };
+	datum v = { vptr, vlen };
+	return gdbm_store(dbf, k, v, n);
+}
+
+char *junk_gdbm_fetch(GDBM_FILE dbf, int klen, char* kptr, int* vlen)
+{
+	datum k = { kptr, klen };
+	datum v = gdbm_fetch(dbf, k);
+	*vlen = v.dsize;
+	return v.dptr;
+}
+
+int junk_gdbm_delete(GDBM_FILE dbf, int klen, char* kptr)
+{
+	datum k = { kptr, klen };
+	return gdbm_delete(dbf,k);
+}
+
+char* junk_gdbm_firstkey(GDBM_FILE dbf, int *klen)
+{
+	datum k = gdbm_firstkey(dbf);
+	*klen = k.dsize;
+	return k.dptr;
+}
+
+char* junk_gdbm_nextkey(GDBM_FILE dbf, int klen, char* kptr, int* new_klen)
+{
+	datum k = { kptr, klen };
+	datum new_k = gdbm_nextkey(dbf, k);
+	*new_klen = new_k.dsize;
+	return new_k.dptr;
+}
diff --git a/JunkDB-driver-gdbm.cabal b/JunkDB-driver-gdbm.cabal
new file mode 100644
--- /dev/null
+++ b/JunkDB-driver-gdbm.cabal
@@ -0,0 +1,34 @@
+-- Initial JunkDB.cabal generated by cabal init.  For further 
+-- documentation, see http://haskell.org/cabal/users-guide/
+
+name:                JunkDB-driver-gdbm
+version:             0.1.0.0
+-- synopsis:            
+description:         Generic KVS API
+license:             BSD3
+license-file:        ../LICENSE
+author:              HATTORI, Hiroki
+maintainer:          seagull.kamome@gmail.com
+-- copyright:           
+category:            Database
+build-type:          Simple
+cabal-version:       >=1.8
+
+source-repository head
+  type:                git
+  location:            https://github.com/seagull-kamome/JunkDB
+
+library
+  exposed-modules:     Database.Junk.GDBM
+  ghc-options:         -Wall
+  c-sources:           Database/Junk/GDBM_wrap.c
+  -- other-modules:       
+  build-depends:       base ==4.6.*,
+                       JunkDB ==0.1.*,
+                       mtl ==2.1.*,
+                       directory ==1.2.*,
+                       filepath ==1.3.*,
+                       bytestring ==0.10.*,
+                       conduit ==1.0.*,
+                       resourcet ==0.4.*
+
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain