diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-03-07 21:34:11 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-07 21:34:11 -0400 |
| commit | a74348655a865182ff9776e1718b24263a5e73ab (patch) | |
| tree | 3b3559d1c3d1be7f4538194f0ed258b61e4498ea /src | |
| parent | 7d34902fe19fa00a58c308a8dd39ad0ac2178c81 (diff) | |
splitWs appears identical to words
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/FreeBSD/Poudriere.hs | 3 |
1 files changed, 1 insertions, 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 |