diff options
| author | Alex Biehl <alexbiehl@gmail.com> | 2017-06-03 20:37:28 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-06-03 20:37:28 +0200 |
| commit | bfb3563f730fd1c973a6611a0fba3435fb1df489 (patch) | |
| tree | 78fe1e944e74c7840bc64cb03ea33b4e23e0ed7e /haddock-api/src/Haddock/Interface/Create.hs | |
| parent | 75e1e19d0d6c139c3c7d9b77b2928e6eb286dd48 (diff) | |
Allow user defined signatures for pattern synonyms (#631)
Diffstat (limited to 'haddock-api/src/Haddock/Interface/Create.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Create.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs index 26ac0281..98d4dbe8 100644 --- a/haddock-api/src/Haddock/Interface/Create.hs +++ b/haddock-api/src/Haddock/Interface/Create.hs @@ -842,6 +842,7 @@ fullModuleContents dflags warnings gre (docMap, argMap, subMap, declMap, instMap expandSig :: Sig name -> [Sig name] expandSig (TypeSig names t) = [ TypeSig [n] t | n <- names ] expandSig (ClassOpSig b names t) = [ ClassOpSig b [n] t | n <- names ] + expandSig (PatSynSig names t) = [ PatSynSig [n] t | n <- names ] expandSig x = [x] mkExportItem :: LHsDecl Name -> ErrMsgGhc (Maybe (ExportItem Name)) |