From f9e8689c515a227a5e1078d2cee4f028b999c007 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 25 Oct 2017 13:10:10 -0400 Subject: fix build warnings --- src/Propellor/Info.hs | 4 ++-- src/Propellor/Property/Chroot/Util.hs | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Propellor/Info.hs b/src/Propellor/Info.hs index fd295aa3..ba73b449 100644 --- a/src/Propellor/Info.hs +++ b/src/Propellor/Info.hs @@ -165,9 +165,9 @@ addDNS prop r rdesc (Address (IPv6 addr)) = unwords ["ipv6", addr] rdesc (MX n d) = unwords ["MX", show n, ddesc d] rdesc (NS d) = unwords ["NS", ddesc d] - rdesc (TXT s) = unwords ["TXT", s] + rdesc (TXT t) = unwords ["TXT", t] rdesc (SRV x y z d) = unwords ["SRV", show x, show y, show z, ddesc d] - rdesc (SSHFP x y s) = unwords ["SSHFP", show x, show y, s] + rdesc (SSHFP x y t) = unwords ["SSHFP", show x, show y, t] rdesc (INCLUDE f) = unwords ["$INCLUDE", f] rdesc (PTR x) = unwords ["PTR", x] diff --git a/src/Propellor/Property/Chroot/Util.hs b/src/Propellor/Property/Chroot/Util.hs index fd91e984..0dc3ea88 100644 --- a/src/Propellor/Property/Chroot/Util.hs +++ b/src/Propellor/Property/Chroot/Util.hs @@ -2,7 +2,6 @@ module Propellor.Property.Chroot.Util where import Propellor.Property.Mount -import Utility.Exception import Utility.Env import Utility.Directory -- cgit v1.2.3