From 70ce2cbf11ea6c861b5597527f768039d0571bf2 Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Mon, 5 May 2014 11:14:47 +0200 Subject: Move out Show and Eq instances to Types They are much more useful to the users here. --- haddock-library/src/Documentation/Haddock/Types.hs | 6 ++++++ haddock-library/test/Documentation/Haddock/ParserSpec.hs | 10 ++-------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/haddock-library/src/Documentation/Haddock/Types.hs b/haddock-library/src/Documentation/Haddock/Types.hs index 3e25d230..b3118cc6 100644 --- a/haddock-library/src/Documentation/Haddock/Types.hs +++ b/haddock-library/src/Documentation/Haddock/Types.hs @@ -24,6 +24,12 @@ 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 diff --git a/haddock-library/test/Documentation/Haddock/ParserSpec.hs b/haddock-library/test/Documentation/Haddock/ParserSpec.hs index 3889d555..8e73848d 100644 --- a/haddock-library/test/Documentation/Haddock/ParserSpec.hs +++ b/haddock-library/test/Documentation/Haddock/ParserSpec.hs @@ -1,6 +1,5 @@ -{-# LANGUAGE OverloadedStrings, StandaloneDeriving - , FlexibleInstances, UndecidableInstances - , IncoherentInstances #-} +{-# LANGUAGE OverloadedStrings, FlexibleInstances #-} +{-# LANGUAGE IncoherentInstances, UndecidableInstances #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Documentation.Haddock.ParserSpec (main, spec) where @@ -14,11 +13,6 @@ import Test.QuickCheck type Doc id = DocH () id -deriving instance Show a => Show (Header a) -deriving instance Show a => Show (Doc a) -deriving instance Eq a => Eq (Header a) -deriving instance Eq a => Eq (Doc a) - instance IsString (Doc String) where fromString = DocString -- cgit v1.2.3