diff options
| author | David Waern <david.waern@gmail.com> | 2008-10-10 22:35:49 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-10-10 22:35:49 +0000 |
| commit | 769bfb301703d5d028d91189744f41ddef144854 (patch) | |
| tree | d31118ad33e0e2f79ad499ae58e78e59fb8d058d /src/Haddock/Interface/Rename.hs | |
| parent | f09d71c5d9174bf6bf8f107fa57fd435132dd18a (diff) | |
Add support for DocPic
The support for DocPic was merged into the GHC source long ago,
but the support in Haddock was forgotten. Thanks Peter Gavin for
submitting this fix!
Diffstat (limited to 'src/Haddock/Interface/Rename.hs')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index d9488ac2..4f45da3a 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -188,6 +188,7 @@ renameDoc doc = case doc of doc' <- renameDoc doc return (DocCodeBlock doc') DocURL str -> return (DocURL str) + DocPic str -> return (DocPic str) DocAName str -> return (DocAName str) |