From 659bcc43a9254b1cf3691b051dc0a5238054c265 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Sat, 24 Mar 2018 00:42:31 -0400 Subject: [PATCH] Align some things. --- src/Analysis/Abstract/ImportGraph.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Analysis/Abstract/ImportGraph.hs b/src/Analysis/Abstract/ImportGraph.hs index ae1a5cf73..65d931643 100644 --- a/src/Analysis/Abstract/ImportGraph.hs +++ b/src/Analysis/Abstract/ImportGraph.hs @@ -64,12 +64,12 @@ instance Monoid ImportGraph where instance Ord ImportGraph where compare (ImportGraph G.Empty) (ImportGraph G.Empty) = EQ - compare (ImportGraph G.Empty) _ = LT - compare _ (ImportGraph G.Empty) = GT + compare (ImportGraph G.Empty) _ = LT + compare _ (ImportGraph G.Empty) = GT compare (ImportGraph (G.Vertex a)) (ImportGraph (G.Vertex b)) = compare a b - compare (ImportGraph (G.Vertex _)) _ = LT - compare _ (ImportGraph (G.Vertex _)) = GT + compare (ImportGraph (G.Vertex _)) _ = LT + compare _ (ImportGraph (G.Vertex _)) = GT compare (ImportGraph (G.Overlay a1 a2)) (ImportGraph (G.Overlay b1 b2)) = (compare `on` ImportGraph) a1 b1 <> (compare `on` ImportGraph) a2 b2 - compare (ImportGraph (G.Overlay _ _)) _ = LT - compare _ (ImportGraph (G.Overlay _ _)) = GT + compare (ImportGraph (G.Overlay _ _)) _ = LT + compare _ (ImportGraph (G.Overlay _ _)) = GT compare (ImportGraph (G.Connect a1 a2)) (ImportGraph (G.Connect b1 b2)) = (compare `on` ImportGraph) a1 b1 <> (compare `on` ImportGraph) a2 b2