diff options
Diffstat (limited to 'Propellor/Types')
| -rw-r--r-- | Propellor/Types/Dns.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Propellor/Types/Dns.hs b/Propellor/Types/Dns.hs index 4b5925c1..026920fb 100644 --- a/Propellor/Types/Dns.hs +++ b/Propellor/Types/Dns.hs @@ -60,6 +60,10 @@ data Record | TXT String deriving (Read, Show, Eq, Ord) +getIPAddr :: Record -> Maybe IPAddr +getIPAddr (Address addr) = Just addr +getIPAddr _ = Nothing + -- | Bind serial numbers are unsigned, 32 bit integers. type SerialNumber = CInt |