diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-05-05 11:14:47 +0200 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-05-05 11:14:47 +0200 |
| commit | 70ce2cbf11ea6c861b5597527f768039d0571bf2 (patch) | |
| tree | 010fc7509c5d71e635c5639868deb67e337ff599 /haddock-library/src/Documentation | |
| parent | cc269e6b0b615e9e237c35a985e4ace7b9ab0dd9 (diff) | |
Move out Show and Eq instances to Types
They are much more useful to the users here.
Diffstat (limited to 'haddock-library/src/Documentation')
| -rw-r--r-- | haddock-library/src/Documentation/Haddock/Types.hs | 6 |
1 files changed, 6 insertions, 0 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 |