propellor spin

This commit is contained in:
Joey Hess 2014-11-22 21:10:35 -04:00
parent 52799884a6
commit 50b6e37790
Failed to extract signature
1 changed files with 20 additions and 2 deletions

View File

@ -141,8 +141,26 @@ installed = RevertableProperty install remove
aptremove = Apt.removed ["debootstrap"] aptremove = Apt.removed ["debootstrap"]
sourceInstall :: Property sourceInstall :: Property
sourceInstall = property "debootstrap installed from source" sourceInstall = property "debootstrap installed from source" (liftIO sourceInstall')
(liftIO sourceInstall') `requires` perlInstalled
`requires` arInstalled
perlInstalled :: Property
perlInstalled = check (not <$> inPath "perl") $ property "perl installed" $ do
v <- liftIO $ firstM id
[ yumInstall "perl"
]
if isJust v then return MadeChange else return FailedChange
arInstalled :: Property
arInstalled = check (not <$> inPath "ar") $ property "ar installed" $ do
v <- liftIO $ firstM id
[ yumInstall "binutils"
]
if isJust v then return MadeChange else return FailedChange
yumInstall :: String -> IO Bool
yumInstall p = boolSystem "yum" [Param "-y", Param "install", Param p]
sourceInstall' :: IO Result sourceInstall' :: IO Result
sourceInstall' = withTmpDir "debootstrap" $ \tmpd -> do sourceInstall' = withTmpDir "debootstrap" $ \tmpd -> do