summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Sbuild.hs
diff options
context:
space:
mode:
authorSean Whitton2017-11-13 10:42:28 -0700
committerSean Whitton2017-11-13 10:42:28 -0700
commitf5a7b6b014b0425a9143d151286dc0e9539e6f69 (patch)
tree226e7cc70d2a1eff1a1e2e9c9d233cf27f9146bb /src/Propellor/Property/Sbuild.hs
parentddeaa31de6b5c2eae24251f1e33b44c1d616fc9c (diff)
emit an error when property is reverted, too
Thanks Joey!
Diffstat (limited to 'src/Propellor/Property/Sbuild.hs')
-rw-r--r--src/Propellor/Property/Sbuild.hs10
1 files changed, 6 insertions, 4 deletions
diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs
index e771e7bc..f96435cf 100644
--- a/src/Propellor/Property/Sbuild.hs
+++ b/src/Propellor/Property/Sbuild.hs
@@ -91,17 +91,19 @@ built
-> Props metatypes
-> RevertableProperty (HasInfo + DebianLike) Linux
built cc ps = case schrootSystem ps of
- Nothing -> emitError <!> doNothing
+ Nothing -> emitError
Just s@(System _ arch) -> case extractSuite s of
- Nothing -> emitError <!> doNothing
+ Nothing -> emitError
Just suite -> built' cc ps suite
(architectureToDebianArchString arch)
where
schrootSystem :: Props metatypes -> Maybe System
schrootSystem (Props ps') = fromInfoVal . fromInfo $
mconcat (map getInfo ps')
- emitError = impossible
- "sbuild schroot does not specify suite and/or architecture"
+
+ emitError :: RevertableProperty (HasInfo + DebianLike) Linux
+ emitError = impossible theError <!> impossible theError
+ theError = "sbuild schroot does not specify suite and/or architecture"
built'
:: UseCcache