summaryrefslogtreecommitdiff
path: root/src/Propellor/Spin.hs
diff options
context:
space:
mode:
authorJoey Hess2015-04-29 14:26:13 -0400
committerJoey Hess2015-04-29 14:26:13 -0400
commit681e4dbbcb880e8e2526519fc58d4f2994a41577 (patch)
tree58f0951f6fc4fc7c534b7c293592386b7575164a /src/Propellor/Spin.hs
parent960745b95e96e3d276e275554584c9bd13565f5b (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Spin.hs')
-rw-r--r--src/Propellor/Spin.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs
index f55f2977..986305d7 100644
--- a/src/Propellor/Spin.hs
+++ b/src/Propellor/Spin.hs
@@ -12,7 +12,6 @@ import System.PosixCompat
import System.Posix.IO
import System.Posix.Directory
import Control.Concurrent.Async
-import Control.Exception (bracket)
import qualified Data.ByteString as B
import qualified Data.Set as S
import qualified Network.BSD as BSD
@@ -168,7 +167,7 @@ updateServer
-> CreateProcess
-> IO ()
updateServer target relay hst connect haveprecompiled =
- withBothHandles createProcessSuccess connect go
+ withIOHandles createProcessSuccess connect go
where
hn = fromMaybe target relay
relaying = relay == Just target