summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Sbuild.hs
diff options
context:
space:
mode:
authorSean Whitton2017-11-12 11:27:58 -0700
committerSean Whitton2017-11-12 11:30:58 -0700
commitddeaa31de6b5c2eae24251f1e33b44c1d616fc9c (patch)
treed5c63d638d20328ac85fdd4595ad2723159bb509 /src/Propellor/Property/Sbuild.hs
parent9fe02daf0b9653f85894ceba6b01b5e555f7f1cd (diff)
fail when schroot doesn't specify suite and/or arch
Diffstat (limited to 'src/Propellor/Property/Sbuild.hs')
-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