diff options
| author | Gabor Greif <ggreif@gmail.com> | 2014-09-19 06:23:58 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2014-09-19 06:26:16 +0200 |
| commit | 4d90e44101559800947ce3cd7fd8704dc520b332 (patch) | |
| tree | 7586fdf64d040e227d97edfef90b8821d47e6c4f /libraries | |
| parent | 09fcd700cfe891ea83aab8f5e1e25f13c193e05c (diff) | |
| download | haskell-4d90e44101559800947ce3cd7fd8704dc520b332.tar.gz | |
Add default case (fixes -Werror)
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/GHC/Generics.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Generics.hs b/libraries/base/GHC/Generics.hs index 3d75c6831f..b3f6de74cc 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 |