From 979c37985bde31c57ec254a34d21f3c78d136da5 Mon Sep 17 00:00:00 2001 From: FĂ©lix Sipma Date: Wed, 18 Jan 2017 15:47:23 +0100 Subject: add Ord instance for Port --- src/Propellor/Types/OS.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Types') diff --git a/src/Propellor/Types/OS.hs b/src/Propellor/Types/OS.hs index b569a6e8..43371af1 100644 --- a/src/Propellor/Types/OS.hs +++ b/src/Propellor/Types/OS.hs @@ -143,7 +143,7 @@ userGroup :: User -> Group userGroup (User u) = Group u newtype Port = Port Int - deriving (Eq, Show) + deriving (Eq, Ord, Show) fromPort :: Port -> String fromPort (Port p) = show p -- cgit v1.2.3