Fix info propigation from fallback combinator's second Property.

1 files changed, 7 insertions, 5 deletions

diff --git a/src/Propellor/Property.hs b/src/Propellor/Property.hs
index 43690735..9db08b2d 100644
--- a/src/Propellor/Property.hs
+++ b/src/Propellor/Property.hs
@@ -92,11 +92,13 @@ check c p = adjustProperty p $ \satisfy -> ifM (liftIO c)
 -- | Tries the first property, but if it fails to work, instead uses
 -- the second.
 fallback :: Property -> Property -> Property
-fallback p1 p2 = adjustProperty p1 $ \satisfy -> do
-	r <- satisfy
-	if r == FailedChange
-		then propertySatisfy p2
-		else return r
+fallback p1 p2 = p1' { propertyChildren = p2 : propertyChildren p1' }
+  where
+	p1' = adjustProperty p1 $ \satisfy -> do
+		r <- satisfy
+		if r == FailedChange
+			then propertySatisfy p2
+			else return r
 
 -- | Marks a Property as trivial. It can only return FailedChange or
 -- NoChange.