diff options
| author | simon.hengel <simon.hengel@wiktory.org> | 2010-04-02 14:08:40 +0000 |
|---|---|---|
| committer | simon.hengel <simon.hengel@wiktory.org> | 2010-04-02 14:08:40 +0000 |
| commit | 28bd97759174c9169b7633ee45d39c82fd069dd9 (patch) | |
| tree | 676af721ca72c1058d3e7e4c2c27c90d37b4d095 /src/Haddock/Interface | |
| parent | 0ff11e2b1d741e05d0fdb457ab104c8fc438d40b (diff) | |
Add markup support for interactive examples
Diffstat (limited to 'src/Haddock/Interface')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 1 | ||||
| -rw-r--r-- | src/Haddock/Interface/Rn.hs | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 80dc7d14..8e1476d3 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -202,6 +202,7 @@ renameDoc d = case d of DocURL str -> return (DocURL str) DocPic str -> return (DocPic str) DocAName str -> return (DocAName str) + DocExamples e -> return (DocExamples e) renameFnArgsDoc :: FnArgsDoc Name -> RnM (FnArgsDoc DocName) diff --git a/src/Haddock/Interface/Rn.hs b/src/Haddock/Interface/Rn.hs index 5127e49b..a115225a 100644 --- a/src/Haddock/Interface/Rn.hs +++ b/src/Haddock/Interface/Rn.hs @@ -80,3 +80,5 @@ rnDoc gre = unId . do_rn DocPic str -> return (DocPic str) DocAName str -> return (DocAName str) + + DocExamples e -> return (DocExamples e) |