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/test/Documentation/Haddock/ParserSpec.hs | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'haddock-library/test/Documentation') 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