From 4fc5b8a1b5998dff4717478b6772878c1ed2de7f Mon Sep 17 00:00:00 2001 From: Tony Morris Date: Fri, 29 Aug 2014 08:44:17 +1000 Subject: hlint improvements --- src/Plugins/Monitors/Net.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Plugins/Monitors/Net.hs') diff --git a/src/Plugins/Monitors/Net.hs b/src/Plugins/Monitors/Net.hs index 39bdd61..51c760c 100644 --- a/src/Plugins/Monitors/Net.hs +++ b/src/Plugins/Monitors/Net.hs @@ -51,8 +51,8 @@ instance Ord NetDev where compare NA _ = LT compare _ NA = GT compare (NI _) (NI _) = EQ - compare (NI _) (ND _ _ _) = LT - compare (ND _ _ _) (NI _) = GT + compare (NI _) (ND {}) = LT + compare (ND {}) (NI _) = GT compare (ND _ x1 y1) (ND _ x2 y2) = if downcmp /= EQ then downcmp -- cgit v1.2.3