From a8a714ea6787f5717ca3ddf0f81ebba8d7ccca4d Mon Sep 17 00:00:00 2001 From: Gabor Greif Date: Thu, 5 Jan 2017 11:41:44 +0100 Subject: Typos in comments (and in a test) --- compiler/utils/Digraph.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'compiler/utils/Digraph.hs') diff --git a/compiler/utils/Digraph.hs b/compiler/utils/Digraph.hs index 53173ba047..48e39f761f 100644 --- a/compiler/utils/Digraph.hs +++ b/compiler/utils/Digraph.hs @@ -103,7 +103,7 @@ emptyGraph = Graph (array (1, 0) []) (error "emptyGraph") (const Nothing) graphFromEdgedVertices :: ReduceFn key payload -> [Node key payload] -- The graph; its ok for the - -- out-list to contain keys which arent + -- out-list to contain keys which aren't -- a vertex key, they are ignored -> Graph (Node key payload) graphFromEdgedVertices _reduceFn [] = emptyGraph @@ -122,7 +122,7 @@ graphFromEdgedVertices reduceFn edged_vertices = graphFromEdgedVerticesOrd :: Ord key => [Node key payload] -- The graph; its ok for the - -- out-list to contain keys which arent + -- out-list to contain keys which aren't -- a vertex key, they are ignored -> Graph (Node key payload) graphFromEdgedVerticesOrd = graphFromEdgedVertices reduceNodesIntoVerticesOrd @@ -132,7 +132,7 @@ graphFromEdgedVerticesOrd = graphFromEdgedVertices reduceNodesIntoVerticesOrd graphFromEdgedVerticesUniq :: Uniquable key => [Node key payload] -- The graph; its ok for the - -- out-list to contain keys which arent + -- out-list to contain keys which aren't -- a vertex key, they are ignored -> Graph (Node key payload) graphFromEdgedVerticesUniq = graphFromEdgedVertices reduceNodesIntoVerticesUniq -- cgit v1.2.1