summaryrefslogtreecommitdiff
path: root/libraries/base/GHC/Generics.hs
diff options
context:
space:
mode:
authorBen Gamari <bgamari.foss@gmail.com>2018-06-19 17:11:05 -0400
committerBen Gamari <ben@smart-cactus.org>2018-06-19 20:15:46 -0400
commit21fa62feace8524cbf4559ccfcc96b22cb07879f (patch)
tree71db68691ebbcf861827388632ca140b8bfd21f2 /libraries/base/GHC/Generics.hs
parent436c0e9b5e201b9121e4b48a7351dd42800eb7f3 (diff)
downloadhaskell-21fa62feace8524cbf4559ccfcc96b22cb07879f.tar.gz
base: Add missing instances for Data.Ord.Down
Specifically: * MonadFix * MonadZip * Data * Foldable * Traversable * Eq1 * Ord1 * Read1 * Show1 * Generic * Generic1 Fixes #15098. Reviewers: RyanGlScott, hvr Reviewed By: RyanGlScott Subscribers: sjakobi, rwbarton, thomie, ekmett, carter GHC Trac Issues: #15098 Differential Revision: https://phabricator.haskell.org/D4870
Diffstat (limited to 'libraries/base/GHC/Generics.hs')
-rw-r--r--libraries/base/GHC/Generics.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/libraries/base/GHC/Generics.hs b/libraries/base/GHC/Generics.hs
index 05a96b98eb..34425f2b5f 100644
--- a/libraries/base/GHC/Generics.hs
+++ b/libraries/base/GHC/Generics.hs
@@ -731,6 +731,7 @@ module GHC.Generics (
-- We use some base types
import Data.Either ( Either (..) )
import Data.Maybe ( Maybe(..), fromMaybe )
+import Data.Ord ( Down(..) )
import GHC.Integer ( Integer, integerToInt )
import GHC.Prim ( Addr#, Char#, Double#, Float#, Int#, Word# )
import GHC.Ptr ( Ptr )
@@ -1435,6 +1436,9 @@ deriving instance Generic ((,,,,,) a b c d e f)
-- | @since 4.6.0.0
deriving instance Generic ((,,,,,,) a b c d e f g)
+-- | @since 4.12.0.0
+deriving instance Generic (Down a)
+
-- | @since 4.6.0.0
deriving instance Generic1 []
@@ -1469,6 +1473,9 @@ deriving instance Generic1 ((,,,,,) a b c d e)
-- | @since 4.6.0.0
deriving instance Generic1 ((,,,,,,) a b c d e f)
+-- | @since 4.12.0.0
+deriving instance Generic1 Down
+
--------------------------------------------------------------------------------
-- Copied from the singletons package
--------------------------------------------------------------------------------