@@ -86,6 +86,9 @@ isUsed :: ModuleName -> Graph -> (Key -> Maybe Vertex) -> [Vertex] -> Declaratio
86isUsed moduleName graph vertexFor entryPointVertices (ValueDeclaration name _ _ _ _) =
86isUsed moduleName graph vertexFor entryPointVertices (ValueDeclaration name _ _ _ _) =
87 let Just v' = vertexFor (moduleName, Left name)
87 let Just v' = vertexFor (moduleName, Left name)
88 in any (\v -> path graph v v') entryPointVertices
88 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
89isUsed moduleName graph vertexFor entryPointVertices (DataDeclaration _ _ dctors) =
92isUsed moduleName graph vertexFor entryPointVertices (DataDeclaration _ _ dctors) =
90 any (\(pn, _) -> let Just v' = vertexFor (moduleName, Right pn)
93 any (\(pn, _) -> let Just v' = vertexFor (moduleName, Right pn)
91 in any (\v -> path graph v v') entryPointVertices) dctors
94 in any (\v -> path graph v v') entryPointVertices) dctors