@@ -86,6 +86,9 @@ isUsed :: ModuleName -> Graph -> (Key -> Maybe Vertex) -> [Vertex] -> Declaratio
8686isUsed moduleName graph vertexFor entryPointVertices (ValueDeclaration name _ _ _ _) =
8787 let Just v' = vertexFor (moduleName, Left name)
8888 in any (\v -> path graph v v') entryPointVertices
89+isUsed moduleName graph vertexFor entryPointVertices (FixityDeclaration _ name) =
90+ let Just v' = vertexFor (moduleName, Left $ Op name)
91+ in any (\v -> path graph v v') entryPointVertices
8992isUsed moduleName graph vertexFor entryPointVertices (DataDeclaration _ _ dctors) =
9093 any (\(pn, _) -> let Just v' = vertexFor (moduleName, Right pn)
9194 in any (\v -> path graph v v') entryPointVertices) dctors