diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-10-25 13:10:10 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-10-25 13:10:10 -0400 |
| commit | f9e8689c515a227a5e1078d2cee4f028b999c007 (patch) | |
| tree | e5cfa21799a4b9bd03f6396446a2727949cb4cea /src | |
| parent | c752ac7d6595e94d1d964b091a97fa7b41c72207 (diff) | |
fix build warnings
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Info.hs | 4 | ||||
| -rw-r--r-- | 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 |