X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=blobdiff_plain;f=Data%2FMaybe.hs;h=e6039f2e4bea5280e7b9a09ee4af2e8da4f120a3;hp=b96efa7829d7d9781dd2b7ba096ef9a943dd58cd;hb=9d3a29e4b8feff1387fc26d3d6431356e1c74d51;hpb=092841be56472fe1dae12f745df6a72abbf44c40

diff --git a/Data/Maybe.hs b/Data/Maybe.hs
index b96efa7..e6039f2 100644
--- a/Data/Maybe.hs
+++ b/Data/Maybe.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP, NoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, DeriveRepresentable #-}
 
 -----------------------------------------------------------------------------
 -- |
@@ -33,6 +33,7 @@ module Data.Maybe
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
+import GHC.Generics (Representable0)
 #endif
 
 #ifdef __NHC__
@@ -65,7 +66,7 @@ import Maybe
 -- error monad can be built using the 'Data.Either.Either' type.
 
 data  Maybe a  =  Nothing | Just a
-  deriving (Eq, Ord)
+  deriving (Eq, Ord, Representable0)
 
 instance  Functor Maybe  where
     fmap _ Nothing       = Nothing