summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Property/Sbuild.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs
index 2f5a1906..e771e7bc 100644
--- a/src/Propellor/Property/Sbuild.hs
+++ b/src/Propellor/Property/Sbuild.hs
@@ -91,17 +91,17 @@ built
-> Props metatypes
-> RevertableProperty (HasInfo + DebianLike) Linux
built cc ps = case schrootSystem ps of
- -- TODO should emit error and FailedChange
- Nothing -> doNothing <!> doNothing
+ Nothing -> emitError <!> doNothing
Just s@(System _ arch) -> case extractSuite s of
- -- TODO should emit error and FailedChange
- Nothing -> doNothing <!> doNothing
+ Nothing -> emitError <!> doNothing
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"
built'
:: UseCcache