summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2016-03-07 21:34:11 -0400
committerJoey Hess2016-03-07 21:34:11 -0400
commita74348655a865182ff9776e1718b24263a5e73ab (patch)
tree3b3559d1c3d1be7f4538194f0ed258b61e4498ea
parent7d34902fe19fa00a58c308a8dd39ad0ac2178c81 (diff)
splitWs appears identical to words
-rw-r--r--src/Propellor/Property/FreeBSD/Poudriere.hs3
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