diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-11-13 10:42:28 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-11-13 10:42:28 -0700 |
| commit | f5a7b6b014b0425a9143d151286dc0e9539e6f69 (patch) | |
| tree | 226e7cc70d2a1eff1a1e2e9c9d233cf27f9146bb /src | |
| parent | ddeaa31de6b5c2eae24251f1e33b44c1d616fc9c (diff) | |
emit an error when property is reverted, too
Thanks Joey!
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Sbuild.hs | 10 |
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 |