diff --git a/higher-leveldb.cabal b/higher-leveldb.cabal
--- a/higher-leveldb.cabal
+++ b/higher-leveldb.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                higher-leveldb
-version:             0.5.0.1
+version:             0.5.0.2
 synopsis:            A rich monadic API for working with leveldb databases.
 description:         A rich monadic API for working with leveldb databases.
 homepage:            https://github.com/jeremyjh/higher-leveldb
diff --git a/test/Database/LevelDB/HigherSpec.hs b/test/Database/LevelDB/HigherSpec.hs
--- a/test/Database/LevelDB/HigherSpec.hs
+++ b/test/Database/LevelDB/HigherSpec.hs
@@ -1,21 +1,22 @@
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE OverloadedStrings          #-}
 
 module Database.LevelDB.HigherSpec (main, spec) where
 
-import qualified Data.ByteString                  as BS
-import           Data.Serialize                   (encode)
+import           Control.Applicative          (Applicative)
+import           Control.Monad.Base           (MonadBase (..))
+import           Control.Monad.Reader
+import           Control.Monad.Trans.Resource
+import           Control.Monad.Writer
+import qualified Data.ByteString              as BS
+import           Data.Maybe                   (fromJust)
 import           Data.Monoid
-import           Test.Hspec
-import           System.Process(system)
+import           Data.Serialize               (encode)
 import           Database.LevelDB.Higher
-import           UnliftIO.Concurrent                (ThreadId, threadDelay)
+import           System.Process               (system)
+import           Test.Hspec
+import           UnliftIO.Concurrent          (ThreadId, threadDelay)
 import           UnliftIO.MVar
-import           Control.Monad.Trans.Resource
-import           Control.Monad.Reader
-import           Control.Monad.Writer
-import           Control.Applicative              (Applicative)
-import           Control.Monad.Base               (MonadBase(..))
 
 --debug
 import           Debug.Trace
@@ -149,7 +150,7 @@
                     put "somekey" "somedata"
                     return (v + 1)
                 mvalue <- readMVar mv
-                Just ldbvalue <- get "somekey"
+                ldbvalue <- fromJust <$> get "somekey"
                 return (mvalue, ldbvalue)
             `shouldReturn` (1, "somedata")