From 6d1263043112d0c70ae8d76fcbc998e6d853fafa Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 13 Apr 2014 11:14:43 -0400 Subject: propellor spin --- Propellor/Property/Obnam.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Propellor/Property/Obnam.hs') diff --git a/Propellor/Property/Obnam.hs b/Propellor/Property/Obnam.hs index b7d34223..00e0bbef 100644 --- a/Propellor/Property/Obnam.hs +++ b/Propellor/Property/Obnam.hs @@ -72,7 +72,9 @@ restored dir params = Property (dir ++ " restored by obnam") go `requires` installed where go = ifM (liftIO needsRestore) - ( liftIO restore + ( do + warningMessage $ dir ++ " is empty/missing; restoring from backup ..." + liftIO restore , noChange ) -- cgit v1.2.3