diff --git a/src/Renderer/TOC.hs b/src/Renderer/TOC.hs
index d3895be8b..6062c54f9 100644
--- a/src/Renderer/TOC.hs
+++ b/src/Renderer/TOC.hs
@@ -139,7 +139,7 @@ termToDiffInfo blob term = case unwrap term of
 
 toTermName :: forall leaf fields. DefaultFields fields => Source Char -> SyntaxTerm leaf fields -> Text
 toTermName source term = case unwrap term of
-  S.Function identifier _ _ -> toTermName' identifier
+  S.Function identifier _ _ _ -> toTermName' identifier
   S.Method identifier _ _ _ -> toTermName' identifier
   _ -> termNameFromSource term
   where