Add Representable0 instances to Either and Maybe.

[ghc-base.git] / Data / Maybe.hs

diff --git a/Data/Maybe.hs b/Data/Maybe.hs
index b96efa7..e6039f2 100644 (file)
--- 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