aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends
diff options
context:
space:
mode:
authorYuchen Pei <hi@ypei.me>2022-07-18 12:40:25 +1000
committerYuchen Pei <hi@ypei.me>2022-07-22 10:11:06 +1000
commitec2bca167898e934821e21c175cb996776bd1edf (patch)
treed419dd32db631b89ed8d892e2ad699eb30c8ad29 /haddock-api/src/Haddock/Backends
parenta1b0a965e354def3ea9ca290539806bc003d91a7 (diff)
a hole in fieldocc
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
-rw-r--r--haddock-api/src/Haddock/Backends/Org.hs1
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]