summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2017-10-25 13:10:10 -0400
committerJoey Hess2017-10-25 13:10:10 -0400
commitf9e8689c515a227a5e1078d2cee4f028b999c007 (patch)
treee5cfa21799a4b9bd03f6396446a2727949cb4cea /src/Propellor
parentc752ac7d6595e94d1d964b091a97fa7b41c72207 (diff)
fix build warnings
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Info.hs4
-rw-r--r--src/Propellor/Property/Chroot/Util.hs1
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