From ddeaa31de6b5c2eae24251f1e33b44c1d616fc9c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 12 Nov 2017 11:27:58 -0700 Subject: fail when schroot doesn't specify suite and/or arch --- src/Propellor/Property/Sbuild.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Propellor/Property') 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 -- cgit v1.2.3