diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-08-06 01:17:37 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-08-06 01:17:37 -0400 |
| commit | be7ea34f16391d5e61326b117ecddeea2165fb86 (patch) | |
| tree | 6ab22459698d8b1e73b1568c2621bcacecc807ce /haddock-api/src/Haddock/Convert.hs | |
| parent | 6cff0555f13e72bbf53e68e215e3aa7aa97cd866 (diff) | |
| parent | 2a966c8ca37766810c2245afdf041faa3b9c4318 (diff) | |
Merge commit '2a966c8ca37' into HEAD
Diffstat (limited to 'haddock-api/src/Haddock/Convert.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Convert.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs index 19630077..69af8045 100644 --- a/haddock-api/src/Haddock/Convert.hs +++ b/haddock-api/src/Haddock/Convert.hs @@ -211,7 +211,7 @@ synifyTyCon prr _coax tc , tcdFixity = synifyFixity tc - , tcdDataDefn = HsDataDefn { dd_ext = noAnn + , tcdDataDefn = HsDataDefn { dd_ext = noExtField , dd_ND = DataType -- arbitrary lie, they are neither -- algebraic data nor newtype: , dd_ctxt = Nothing @@ -302,7 +302,7 @@ synifyTyCon _prr coax tc cons = rights consRaw -- "deriving" doesn't affect the signature, no need to specify any. alg_deriv = [] - defn = HsDataDefn { dd_ext = noAnn + defn = HsDataDefn { dd_ext = noExtField , dd_ND = alg_nd , dd_ctxt = alg_ctx , dd_cType = Nothing |