From 85e58f49ca676a3cfb34c6bfb27bb5d0b39e83f4 Mon Sep 17 00:00:00 2001 From: FĂ©lix Sipma Date: Mon, 7 Mar 2016 14:29:07 +0100 Subject: add fromPort function (cherry picked from commit c3a23f89092d1ef8367c37ab8993ea7031124f4b) --- src/Propellor/Types/OS.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Propellor/Types/OS.hs') diff --git a/src/Propellor/Types/OS.hs b/src/Propellor/Types/OS.hs index c302d11d..0abc76ac 100644 --- a/src/Propellor/Types/OS.hs +++ b/src/Propellor/Types/OS.hs @@ -13,6 +13,7 @@ module Propellor.Types.OS ( Group(..), userGroup, Port(..), + fromPort, ) where import Network.BSD (HostName) @@ -53,3 +54,6 @@ userGroup (User u) = Group u newtype Port = Port Int deriving (Eq, Show) + +fromPort :: Port -> String +fromPort (Port p) = show p -- cgit v1.2.3