diff options
| author | simonmar <unknown> | 2002-05-08 14:48:41 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-08 14:48:41 +0000 |
| commit | db23f65e1d2a82ac7d86c055cac66b35a3f68940 (patch) | |
| tree | 9df9e7e323fbe4d8b8fa590eaa920de3c46057e8 /src/Main.hs | |
| parent | cda064470606a73d9ed97644684a447791b627f5 (diff) | |
[haddock @ 2002-05-08 14:48:39 by simonmar]
Add support for existential quantifiers on constructors.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index c5d39844..f868210f 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -525,11 +525,11 @@ docsFromDecl _ = [] docsFromConDecl :: HsConDecl -> [(HsName, DocString)] -docsFromConDecl (HsConDecl loc nm tys (Just doc)) +docsFromConDecl (HsConDecl loc nm tvs ctxt tys (Just doc)) = finishedDoc nm doc [] -docsFromConDecl (HsRecDecl loc nm fields (Just doc)) +docsFromConDecl (HsRecDecl loc nm tvs ctxt fields (Just doc)) = finishedDoc nm doc (foldr docsFromField [] fields) -docsFromConDecl (HsRecDecl loc nm fields Nothing) +docsFromConDecl (HsRecDecl loc nm tvs ctxt fields Nothing) = foldr docsFromField [] fields docsFromConDecl _ = [] |