summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Message.hs4
-rw-r--r--src/Propellor/Property/SiteSpecific/JoeySites.hs3
2 files changed, 3 insertions, 4 deletions
diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs
index 435a12b2..51d9babb 100644
--- a/src/Propellor/Message.hs
+++ b/src/Propellor/Message.hs
@@ -98,10 +98,9 @@ actionMessage' :: (MonadIO m, ActionResult r, ToResult r) => Maybe HostName -> D
actionMessage' mhn desc a = do
liftIO $ outputConcurrent
=<< whenConsole (setTitleCode $ "propellor: " ++ desc)
-
liftIO $ trace $ ActionStart mhn desc
+
r <- a
- liftIO $ trace $ ActionEnd mhn desc (toResult r)
liftIO $ outputConcurrent . concat =<< sequence
[ whenConsole $
@@ -111,6 +110,7 @@ actionMessage' mhn desc a = do
, let (msg, intensity, color) = getActionResult r
in colorLine intensity color msg
]
+ liftIO $ trace $ ActionEnd mhn desc (toResult r)
return r
where
diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs
index d686f3d9..a48ebf9c 100644
--- a/src/Propellor/Property/SiteSpecific/JoeySites.hs
+++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs
@@ -963,8 +963,7 @@ homeRouter = propertyList "home router" $ props
]
& ipmasq "wlan0"
& Apt.serviceInstalledRunning "netplug"
- & Network.static' "eth0" (IPv4 "192.168.1.42")
- (Just (Network.Gateway (IPv4 "192.168.1.1")))
+ & Network.dhcp' "eth0"
-- When satellite is down, fall back to dialup
[ ("pre-up", "poff -a || true")
, ("post-down", "pon")