summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Property/Sbuild.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs
index 4f3fcc26..1ff4876a 100644
--- a/src/Propellor/Property/Sbuild.hs
+++ b/src/Propellor/Property/Sbuild.hs
@@ -472,7 +472,7 @@ schrootPiupartsConf (SbuildSchroot s a) =
sidHostArchSchroot :: SbuildSchroot -> Propellor Bool
sidHostArchSchroot (SbuildSchroot suite arch) = do
maybeOS <- getOS
- case maybeOS of
- Nothing -> return False
+ return $ case maybeOS of
+ Nothing -> False
Just (System _ hostArch) ->
- return $ suite == "unstable" && hostArch == arch
+ suite == "unstable" && hostArch == arch