diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs index 89b5e2af8..ae7cd3e9e 100644 --- a/src/DiffSummary.hs +++ b/src/DiffSummary.hs @@ -155,6 +155,7 @@ toLeafInfos leaf = pure . flip JSONSummary (sourceSpan leaf) $ case leaf of (LeafInfo "anonymous function" termName _) -> toDoc termName <+> "function" (LeafInfo cName@"string" termName _) -> toDoc termName <+> toDoc cName (LeafInfo cName@"export statement" termName _) -> toDoc termName <+> toDoc cName + (LeafInfo cName@"import statement" termName _) -> toDoc termName <+> toDoc cName LeafInfo{..} -> squotes (toDoc termName) <+> toDoc categoryName node -> panic $ "Expected a leaf info but got a: " <> show node