From 1f7b6f58415792bfb08853f94ea2e441d06c61aa Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Fri, 11 Jan 2019 12:36:29 -0500 Subject: [PATCH] elide not-useful DerivingStrategies --- src/Proto3/Suite/Exts.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Proto3/Suite/Exts.hs b/src/Proto3/Suite/Exts.hs index fca3e8e69..c5726af67 100644 --- a/src/Proto3/Suite/Exts.hs +++ b/src/Proto3/Suite/Exts.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE GeneralizedNewtypeDeriving, DerivingStrategies, DerivingVia, PatternSynonyms, ScopedTypeVariables, UndecidableInstances #-} +{-# LANGUAGE GeneralizedNewtypeDeriving, DerivingVia, PatternSynonyms, ScopedTypeVariables, UndecidableInstances #-} module Proto3.Suite.Exts ( PrimitiveEnum (..) @@ -24,8 +24,7 @@ pattern Absent = Nested Nothing {-# COMPLETE Present, Absent #-} newtype PrimitiveEnum a = PrimitiveEnum a - deriving stock (Eq, Ord) - deriving newtype (Bounded, Named, Enum, HasDefault) + deriving (Eq, Ord, Bounded, Named, Enum, HasDefault) -- | Provides a DerivingVia hook to opt into a sensible definition of 'Primitive' -- for a given 'Enum'. Should the decoding fail, the 'HasDefault' instance is used