Functor Value.

2014-07-12 12:00:54 -03:00 · 2014-07-12 12:00:54 -03:00 · ba577a0111
commit ba577a0111
parent bfdb140e46
1 changed files with 5 additions and 0 deletions
--- 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/