diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-11-12 11:27:58 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-11-12 11:30:58 -0700 |
| commit | ddeaa31de6b5c2eae24251f1e33b44c1d616fc9c (patch) | |
| tree | d5c63d638d20328ac85fdd4595ad2723159bb509 | |
| parent | 9fe02daf0b9653f85894ceba6b01b5e555f7f1cd (diff) | |
fail when schroot doesn't specify suite and/or arch
| -rw-r--r-- | src/Propellor/Property/Sbuild.hs | 8 |
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 |