diff --git a/src/Database/Esqueleto/Internal/Language.hs b/src/Database/Esqueleto/Internal/Language.hs
index ef47ee1..f343838 100644
--- a/src/Database/Esqueleto/Internal/Language.hs
+++ b/src/Database/Esqueleto/Internal/Language.hs
@@ -630,6 +630,9 @@ newtype Value a = Value { unValue :: a } deriving (Eq, Ord, Show, Typeable)
 instance Functor Value where
   fmap f (Value a) = Value (f a)
 
+instance Applicative Value where
+  (<*>) (Value f) (Value a) = Value (f a)
+  pure = Value
 
 -- | A list of single values.  There's a limited set of functions
 -- able to work with this data type (such as 'subList_select',