diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-07-18 12:40:25 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-07-21 13:00:43 +1000 |
| commit | 2475b7ccb4ee6118d674d8c9093c96d986609415 (patch) | |
| tree | de78f45bce70628b1f67c278a7b5b33d0f0c1746 | |
| parent | 4d983b21cf7bf5c851147d1a377fa56027275b84 (diff) | |
a hole in fieldocc
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Org.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Backends/Org.hs b/haddock-api/src/Haddock/Backends/Org.hs index 7460be4a..02582247 100644 --- a/haddock-api/src/Haddock/Backends/Org.hs +++ b/haddock-api/src/Haddock/Backends/Org.hs @@ -704,6 +704,7 @@ ppConDeclField (ConDeclField _ names (L _ ty) _) subdocs path level = fieldOccDocName :: FieldOcc DocNameI -> DocName fieldOccDocName (FieldOcc docName _) = docName +fieldOccDocName _ = error "FieldOccDocName" -- TODO: handle linear types ppHsScaled :: HsScaled DocNameI (LHsType DocNameI) -> [OrgInline] |