summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-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