From a74348655a865182ff9776e1718b24263a5e73ab Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 7 Mar 2016 21:34:11 -0400 Subject: splitWs appears identical to words --- src/Propellor/Property/FreeBSD/Poudriere.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Propellor/Property/FreeBSD/Poudriere.hs b/src/Propellor/Property/FreeBSD/Poudriere.hs index 32234b27..8d809d8b 100644 --- a/src/Propellor/Property/FreeBSD/Poudriere.hs +++ b/src/Propellor/Property/FreeBSD/Poudriere.hs @@ -10,7 +10,6 @@ import Propellor.Base import Propellor.Types.Info import Data.List import Data.String (IsString(..)) -import Data.String.Utils (splitWs) import qualified Propellor.Property.FreeBSD.Pkg as Pkg import qualified Propellor.Property.ZFS as ZFS @@ -54,7 +53,7 @@ runPoudriere cmd args = listJails :: IO [String] listJails = - map ((\(n:_) -> n ) . take 1 . splitWs) <$> runPoudriere "jail" ["-l", "-q"] + map ((\(n:_) -> n ) . take 1 . words) <$> runPoudriere "jail" ["-l", "-q"] jailExists :: Jail -> IO Bool jailExists (Jail name _ _) = isInfixOf [name] <$> listJails -- cgit v1.2.3