From ba577a01115f40d74bd437a77a8bbf989577033e Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Sat, 12 Jul 2014 12:00:54 -0300
Subject: [PATCH] Functor Value.

---
 src/Database/Esqueleto/Internal/Language.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Database/Esqueleto/Internal/Language.hs b/src/Database/Esqueleto/Internal/Language.hs
index 071ae82..96087b5 100644
--- a/src/Database/Esqueleto/Internal/Language.hs
+++ b/src/Database/Esqueleto/Internal/Language.hs
@@ -354,6 +354,11 @@ data Value a = Value a deriving (Eq, Ord, Show, Typeable)
 -- <https://ghc.haskell.org/trac/ghc/ticket/6124>
 
 
+-- | /Since: 1.4.4/
+instance Functor Value where
+  fmap f (Value a) = Value (f a)
+
+
 -- | Unwrap a 'Value'.
 --
 -- /Since: 1.4.1/