Export an unValue function.

src/Database/Esqueleto.hs

@@ -51,6 +51,7 @@ module Database.Esqueleto
              , set, (=.), (+=.), (-=.), (*=.), (/=.) )
   , from
   , Value(..)
+  , unValue
   , ValueList(..)
   , OrderBy
     -- ** Joins

src/Database/Esqueleto/Internal/Language.hs

@@ -16,6 +16,7 @@ module Database.Esqueleto.Internal.Language
     Esqueleto(..)
   , from
   , Value(..)
+  , unValue
   , ValueList(..)
   , SomeValue(..)
   , ToSomeValues(..)
@@ -337,6 +338,13 @@ data Value a = Value a deriving (Eq, Ord, Show, Typeable)
 -- <https://ghc.haskell.org/trac/ghc/ticket/6124>
 
 
+-- | 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').

test/Test.hs

@@ -879,6 +879,3 @@ run_worker act =
 #else
   (runMigrationSilent migrateAll >>) $ act
 #endif
-
-unValue :: Value a -> a
-unValue (Value a) = a