diff --git a/esqueleto.cabal b/esqueleto.cabal
--- a/esqueleto.cabal
+++ b/esqueleto.cabal
@@ -1,5 +1,5 @@
 name:                esqueleto
-version:             1.4
+version:             1.4.1
 synopsis:            Bare bones, type-safe EDSL for SQL queries on persistent backends.
 homepage:            https://github.com/meteficha/esqueleto
 license:             BSD3
diff --git a/src/Database/Esqueleto.hs b/src/Database/Esqueleto.hs
--- a/src/Database/Esqueleto.hs
+++ b/src/Database/Esqueleto.hs
@@ -51,6 +51,7 @@
              , set, (=.), (+=.), (-=.), (*=.), (/=.) )
   , from
   , Value(..)
+  , unValue
   , ValueList(..)
   , OrderBy
     -- ** Joins
diff --git a/src/Database/Esqueleto/Internal/Language.hs b/src/Database/Esqueleto/Internal/Language.hs
--- a/src/Database/Esqueleto/Internal/Language.hs
+++ b/src/Database/Esqueleto/Internal/Language.hs
@@ -16,6 +16,7 @@
     Esqueleto(..)
   , from
   , Value(..)
+  , unValue
   , ValueList(..)
   , SomeValue(..)
   , ToSomeValues(..)
@@ -334,13 +335,22 @@
 -- @('^.')@ or @('?.')@ to get a 'Value' from an 'Entity'.
 data Value a = Value a deriving (Eq, Ord, Show, Typeable)
 -- Note: because of GHC bug #6124 we use @data@ instead of @newtype@.
+-- <https://ghc.haskell.org/trac/ghc/ticket/6124>
 
 
--- | A list of single values.  There's a limited set of funcitons
+-- | Unwrap a 'Value'.
+--
+-- /Since: 1.4.1/
+unValue :: Value a -> a
+unValue (Value a) = a
+
+
+-- | A list of single values.  There's a limited set of functions
 -- able to work with this data type (such as 'subList_select',
 -- 'valList', 'in_' and 'exists').
 data ValueList a = ValueList a deriving (Eq, Ord, Show, Typeable)
 -- Note: because of GHC bug #6124 we use @data@ instead of @newtype@.
+-- <https://ghc.haskell.org/trac/ghc/ticket/6124>
 
 
 -- | A wrapper type for for any @expr (Value a)@ for all a.
diff --git a/test/Test.hs b/test/Test.hs
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -879,6 +879,3 @@
 #else
   (runMigrationSilent migrateAll >>) $ act
 #endif
-
-unValue :: Value a -> a
-unValue (Value a) = a