diff --git a/Database/SQLite/Simple/Types.hs b/Database/SQLite/Simple/Types.hs
--- a/Database/SQLite/Simple/Types.hs
+++ b/Database/SQLite/Simple/Types.hs
@@ -26,6 +26,7 @@
 import           Control.Arrow (first)
 import           Data.Monoid (Monoid(..))
 import           Data.String (IsString(..))
+import           Data.Tuple.Only (Only(..))
 import           Data.Typeable (Typeable)
 import qualified Data.Text as T
 
@@ -72,23 +73,6 @@
     mempty = Query T.empty
     mappend (Query a) (Query b) = Query (T.append a b)
     {-# INLINE mappend #-}
-
--- | A single-value \"collection\".
---
--- This is useful if you need to supply a single parameter to a SQL
--- query, or extract a single column from a SQL result.
---
--- Parameter example:
---
--- @query c \"select x from scores where x > ?\" ('Only' (42::Int))@
---
--- Result example:
---
--- @xs <- query_ c \"select id from users\"
---forM_ xs $ \\('Only' id) -> {- ... -}@
-newtype Only a = Only {
-      fromOnly :: a
-    } deriving (Eq, Ord, Read, Show, Typeable, Functor)
 
 -- | A composite type to parse your custom data structures without
 -- having to define dummy newtype wrappers every time.
diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,6 @@
+0.4.14.0
+	* Use @hvr's Only package for the Only single element typle type.
+
 0.4.13.0
 	* Add columnCount (thanks @Shimuuar!)
 	* Add withImmediateTransaction, withExclusiveTransaction (thanks @mbucc!)
diff --git a/sqlite-simple.cabal b/sqlite-simple.cabal
--- a/sqlite-simple.cabal
+++ b/sqlite-simple.cabal
@@ -1,5 +1,5 @@
 Name:                sqlite-simple
-Version:             0.4.13.0
+Version:             0.4.14.0
 Synopsis:            Mid-Level SQLite client library
 Description:
     Mid-level SQLite client library, based on postgresql-simple.
@@ -51,7 +51,8 @@
     direct-sqlite >= 2.3.13 && < 2.4,
     text >= 0.11,
     time,
-    transformers
+    transformers,
+    Only >= 0.1 && < 0.1.1
 
   default-extensions:
       DoAndIfThenElse
diff --git a/test/Simple.hs b/test/Simple.hs
--- a/test/Simple.hs
+++ b/test/Simple.hs
@@ -124,7 +124,6 @@
   assertEqual "UTCTime" time t
   rows <- query conn "SELECT * FROM timefract WHERE t = ?" (Only time) :: IO [Only UTCTime]
   assertEqual "should see one row result" 1 (length rows)
-  assertEqual "UTCTime" time t
 
 testSimpleInsertId :: TestEnv -> Test
 testSimpleInsertId TestEnv{..} = TestCase $ do