From 2475b7ccb4ee6118d674d8c9093c96d986609415 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 18 Jul 2022 12:40:25 +1000 Subject: a hole in fieldocc --- haddock-api/src/Haddock/Backends/Org.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'haddock-api/src/Haddock/Backends/Org.hs') 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] -- cgit v1.2.3