[commit: ghc] master: Add default case (fixes -Werror) (4d90e44)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4d90e44101559800947ce3cd7fd8704dc520b332/ghc

>---------------------------------------------------------------

commit 4d90e44101559800947ce3cd7fd8704dc520b332
Author: Gabor Greif <ggreif at gmail.com>
Date:   Fri Sep 19 06:23:58 2014 +0200

    Add default case (fixes -Werror)


>---------------------------------------------------------------

4d90e44101559800947ce3cd7fd8704dc520b332
 libraries/base/GHC/Generics.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libraries/base/GHC/Generics.hs b/libraries/base/GHC/Generics.hs
index 3d75c68..b3f6de7 100644
--- a/libraries/base/GHC/Generics.hs
+++ b/libraries/base/GHC/Generics.hs
@@ -706,7 +706,7 @@ sameConstructor l r | Just Refl <- pd l ` sameDatatype` pd r
           dummyC Proxy = undefined
           cl = dummyC l
           cr = dummyC r
-
+sameConstructor _ _ = Nothing
 
 -- | Datatype to represent the arity of a tuple.
 data Arity = NoArity | Arity Int