diff options
| author | David Waern <david.waern@gmail.com> | 2007-11-11 00:50:57 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2007-11-11 00:50:57 +0000 |
| commit | 5f475ed8d2457925231389048d843ee1261802ac (patch) | |
| tree | ab665f79f9c3585c3fdf683a10759e0fbe7fea1b /src/Haddock/Types.hs | |
| parent | 563918097f98e6eb6f6c57d3be3a0954d2655ee0 (diff) | |
Do some refactoring in the html backend
This also merges an old patch by Augustsson:
Wed Jul 12 19:54:36 CEST 2006 lennart.augustsson@credit-suisse.com
* Print type definitions like signatures if given arrows.
Diffstat (limited to 'src/Haddock/Types.hs')
| -rw-r--r-- | src/Haddock/Types.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index e46ddf9e..6143ae02 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -89,6 +89,11 @@ instance Outputable DocName where ppr (NoLink n) = ppr n +instance NamedThing DocName where + getName (Link n) = n + getName (NoLink n) = n + + -- | This structure holds the module information we get from GHC's -- type checking phase data GhcModule = GhcModule { |