summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/Property/Apt.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Propellor/Property/Apt.hs b/src/Propellor/Property/Apt.hs
index abec1357..009b426b 100644
--- a/src/Propellor/Property/Apt.hs
+++ b/src/Propellor/Property/Apt.hs
@@ -20,6 +20,11 @@ import Propellor.Types.Info
data HostMirror = HostMirror Url
deriving (Eq, Show, Typeable)
+-- | Indicate host's preferred apt mirror (e.g. an apt cacher on the host's LAN)
+hostMirrorIs :: Url -> Property (HasInfo + UnixLike)
+hostMirrorIs u = pureInfoProperty (u ++ " apt mirror selected")
+ (InfoVal (HostMirror u))
+
getHostMirror :: Propellor Url
getHostMirror = do
mirrorInfo <- getHostMirrorInfo