diff --git a/postgresql-simple.cabal b/postgresql-simple.cabal
--- a/postgresql-simple.cabal
+++ b/postgresql-simple.cabal
@@ -1,5 +1,5 @@
 Name:                postgresql-simple
-Version:             0.4.0.1
+Version:             0.4.0.2
 Synopsis:            Mid-Level PostgreSQL client library
 Description:
     Mid-Level PostgreSQL client library, forked from mysql-simple.
@@ -79,7 +79,7 @@
 source-repository this
   type:     git
   location: http://github.com/lpsmith/postgresql-simple
-  tag:      v0.4.0.1
+  tag:      v0.4.0.2
 
 test-suite test
   type:           exitcode-stdio-1.0
@@ -92,9 +92,6 @@
     Serializable
     Time
 
-  Build-depends:
-     vector
-
   ghc-options: -Wall -fno-warn-name-shadowing -fno-warn-unused-do-bind
 
   extensions: NamedFieldPuns
@@ -114,3 +111,4 @@
                , postgresql-simple
                , text
                , time
+               , vector
diff --git a/src/Database/PostgreSQL/Simple/FromField.hs b/src/Database/PostgreSQL/Simple/FromField.hs
--- a/src/Database/PostgreSQL/Simple/FromField.hs
+++ b/src/Database/PostgreSQL/Simple/FromField.hs
@@ -476,7 +476,7 @@
              Just bs ->
 #if MIN_VERSION_aeson(0,6,3)
                  case JSON.eitherDecodeStrict' bs of
-#elsif MIN_VERSION_bytestring(0,10,0)
+#elif MIN_VERSION_bytestring(0,10,0)
                  case JSON.eitherDecode' $ LB.fromStrict bs of
 #else
                  case JSON.eitherDecode' $ LB.fromChunks [bs] of
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -171,9 +171,9 @@
 
 testJSON :: TestEnv -> Test
 testJSON TestEnv{..} = TestCase $ do
-    roundTrip (Map.fromList [] :: Map ByteString ByteString)
-    roundTrip (Map.fromList [("foo","bar"),("bar","baz"),("baz","hello")] :: Map ByteString ByteString )
-    roundTrip (Map.fromList [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")] :: Map ByteString ByteString)
+    roundTrip (Map.fromList [] :: Map Text Text)
+    roundTrip (Map.fromList [("foo","bar"),("bar","baz"),("baz","hello")] :: Map Text Text)
+    roundTrip (Map.fromList [("fo\"o","bar"),("b\\ar","baz"),("baz","\"value\\with\"escapes")] :: Map Text Text)
     roundTrip (V.fromList [1,2,3,4,5::Int])
   where
     roundTrip :: ToJSON a => a -> Assertion