summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/FreeBSD
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/FreeBSD')
-rw-r--r--src/Propellor/Property/FreeBSD/Pkg.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Propellor/Property/FreeBSD/Pkg.hs b/src/Propellor/Property/FreeBSD/Pkg.hs
index 1d6e1f68..913710f7 100644
--- a/src/Propellor/Property/FreeBSD/Pkg.hs
+++ b/src/Propellor/Property/FreeBSD/Pkg.hs
@@ -77,7 +77,9 @@ isInstallable :: Package -> IO Bool
isInstallable p = (not <$> isInstalled p) <&&> exists p
isInstalled :: Package -> IO Bool
-isInstalled p = catch (runPkg "info" [p] >> return True) (\(_ :: IOError ) -> return False)
+isInstalled p = (runPkg "info" [p] >> return True)
+ `catchIO` (\_ -> return False)
exists :: Package -> IO Bool
-exists p = catch (runPkg "search" ["--search", "name", "--exact", p] >> return True) (\(_ :: IOError ) -> return False)
+exists p = (runPkg "search" ["--search", "name", "--exact", p] >> return True)
+ `catchIO` (\_ -> return False)