diff --git a/rethinkdb-client-driver.cabal b/rethinkdb-client-driver.cabal
--- a/rethinkdb-client-driver.cabal
+++ b/rethinkdb-client-driver.cabal
@@ -1,5 +1,5 @@
 name:                   rethinkdb-client-driver
-version:                0.0.23
+version:                0.0.24
 license:                MIT
 license-file:           LICENSE
 author:                 Tomas Carnecky
@@ -33,9 +33,9 @@
     default-language  : Haskell2010
     hs-source-dirs    : src
 
-    build-depends     : base < 4.10
+    build-depends     : base < 4.11
                       , aeson
-                      , binary >= 0.6.0.0
+                      , binary
                       , bytestring
                       , containers
                       , hashable
@@ -46,7 +46,7 @@
                       , stm
                       , template-haskell
                       , text
-                      , time >= 1.4
+                      , time
                       , unordered-containers
                       , vector
 
@@ -67,7 +67,7 @@
     main-is           : Test.hs
     type              : exitcode-stdio-1.0
 
-    build-depends     : base < 4.10
+    build-depends     : base < 4.11
                       , hspec
                       , smallcheck
                       , hspec-smallcheck
@@ -86,7 +86,7 @@
     main-is           : Benchmark.hs
     type              : exitcode-stdio-1.0
 
-    build-depends     : base < 4.10
+    build-depends     : base < 4.11
                       , criterion
 
                       , rethinkdb-client-driver
diff --git a/src/Database/RethinkDB/TH.hs b/src/Database/RethinkDB/TH.hs
--- a/src/Database/RethinkDB/TH.hs
+++ b/src/Database/RethinkDB/TH.hs
@@ -244,6 +244,7 @@
               [|object|] `appE` listE
                 [ infixApp (conTxt opts conName) [|(.=)|] exp
                 ]
+          UntaggedValue -> exp
 
     | otherwise = exp
 
@@ -337,6 +338,7 @@
                    ObjectWithSingleField ->
                        [|object|] `appE` listE
                          [ infixApp (conTxt opts conName) [|(.=)|] exp ]
+                   UntaggedValue -> exp
             else exp
           ) []
 
@@ -462,6 +464,7 @@
 
     mixedMatches =
         case sumEncoding opts of
+          UntaggedValue -> parseObject varE
           TaggedObject {tagFieldName, contentsFieldName} ->
             parseObject $ parseTaggedObject tagFieldName contentsFieldName
           ObjectWithSingleField ->