aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-05-05 11:14:47 +0200
committerMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-05-05 11:14:47 +0200
commit70ce2cbf11ea6c861b5597527f768039d0571bf2 (patch)
tree010fc7509c5d71e635c5639868deb67e337ff599
parentcc269e6b0b615e9e237c35a985e4ace7b9ab0dd9 (diff)
Move out Show and Eq instances to Types
They are much more useful to the users here.
-rw-r--r--haddock-library/src/Documentation/Haddock/Types.hs6
-rw-r--r--haddock-library/test/Documentation/Haddock/ParserSpec.hs10
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