diff --git a/src/Rendering/TOC.hs b/src/Rendering/TOC.hs index 16a53aa3d..03552b56a 100644 --- a/src/Rendering/TOC.hs +++ b/src/Rendering/TOC.hs @@ -125,7 +125,7 @@ entryChange entry = case entry of -- | Construct a 'TOCSummary' from a node annotation and a change type label. recordSummary :: T.Text -> Declaration -> TOCSummary recordSummary changeText record = case record of - (ErrorDeclaration text _ srcSpan language) -> ErrorSummary text srcSpan language + ErrorDeclaration text _ srcSpan language -> ErrorSummary text srcSpan language decl-> TOCSummary (toCategoryName decl) (formatIdentifier decl) (declarationSpan decl) changeText where formatIdentifier (MethodDeclaration identifier _ _ Language.Go (Just receiver)) = "(" <> receiver <> ") " <> identifier