diff options
author | Simon Hengel <sol@typeful.net> | 2014-11-02 09:28:17 +0800 |
---|---|---|
committer | Simon Hengel <sol@typeful.net> | 2014-11-03 09:26:11 +0800 |
commit | 2f6362ed4b6c16bdd5d01be19876507eeaf918bd (patch) | |
tree | be076842786887ef910f59ae1f561731fe8a8ebc /haddock-library/src/Documentation | |
parent | 36ad2fd75a4bb559b32b8baa088b6146f8f70c2d (diff) |
Get rid of StandaloneDeriving
Diffstat (limited to 'haddock-library/src/Documentation')
-rw-r--r-- | haddock-library/src/Documentation/Haddock/Types.hs | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/haddock-library/src/Documentation/Haddock/Types.hs b/haddock-library/src/Documentation/Haddock/Types.hs index b3118cc6..9a64fb69 100644 --- a/haddock-library/src/Documentation/Haddock/Types.hs +++ b/haddock-library/src/Documentation/Haddock/Types.hs @@ -1,5 +1,4 @@ -{-# LANGUAGE DeriveDataTypeable, DeriveFunctor, DeriveFoldable #-} -{-# LANGUAGE DeriveTraversable, StandaloneDeriving #-} +{-# LANGUAGE DeriveFunctor, DeriveFoldable, DeriveTraversable #-} -- | -- Module : Documentation.Haddock.Types @@ -24,12 +23,6 @@ instance Foldable Header where instance Traversable Header where traverse f (Header l a) = Header l `fmap` f a - -deriving instance Show a => Show (Header a) -deriving instance (Show a, Show b) => Show (DocH a b) -deriving instance Eq a => Eq (Header a) -deriving instance (Eq a, Eq b) => Eq (DocH a b) - data Hyperlink = Hyperlink { hyperlinkUrl :: String , hyperlinkLabel :: Maybe String @@ -44,7 +37,7 @@ data Picture = Picture data Header id = Header { headerLevel :: Int , headerTitle :: id - } deriving Functor + } deriving (Eq, Show, Functor) data Example = Example { exampleExpression :: String @@ -73,4 +66,4 @@ data DocH mod id | DocProperty String | DocExamples [Example] | DocHeader (Header (DocH mod id)) - deriving (Functor, Foldable, Traversable) + deriving (Eq, Show, Functor, Foldable, Traversable) |