diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2018-06-05 13:53:25 -0700 |
|---|---|---|
| committer | Simon Jakobi <simon.jakobi@gmail.com> | 2018-06-13 23:39:30 +0200 |
| commit | 9db17c50429d6dda5ef98a638e1228e877a80062 (patch) | |
| tree | 86ebef19982b9f04c71073ca80e2293ec3ca04a0 /haddock-api/src/Haddock | |
| parent | 3b028ce3d1996f82cad8a273bcf95445238f5c6e (diff) | |
Extract docs from strict/unpacked constructor args (#839)
This fixes #836.
Diffstat (limited to 'haddock-api/src/Haddock')
| -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 b04a3777..cf708503 100644 --- a/haddock-api/src/Haddock/Interface/Create.hs +++ b/haddock-api/src/Haddock/Interface/Create.hs @@ -485,6 +485,7 @@ conArgDocs con = case getConArgs con of RecCon _ -> go 1 ret where go n (HsDocTy _ _ (L _ ds) : tys) = M.insert n ds $ go (n+1) tys + go n (HsBangTy _ _ (L _ (HsDocTy _ _ (L _ ds))) : tys) = M.insert n ds $ go (n+1) tys go n (_ : tys) = go (n+1) tys go _ [] = M.empty |