summaryrefslogtreecommitdiff
path: root/src/Propellor/Git.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-22 00:22:19 -0400
committerJoey Hess2014-11-22 00:22:19 -0400
commitf62d2fb18389947ce11021ba80b2aee52c6d03c2 (patch)
treefeb9eec5ca3ddc4cb1e4689711dd048912e1c6a4 /src/Propellor/Git.hs
parentd5cf4db6e1ae1c8bb5235ab274e787130bb24041 (diff)
propellor --spin can now deploy propellor to hosts that do not have git, ghc, or apt-get. This is accomplished by uploading a fairly portable precompiled tarball of propellor.
Diffstat (limited to 'src/Propellor/Git.hs')
-rw-r--r--src/Propellor/Git.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Git.hs b/src/Propellor/Git.hs
index 73de1def..e5f464c0 100644
--- a/src/Propellor/Git.hs
+++ b/src/Propellor/Git.hs
@@ -38,7 +38,7 @@ getRepoUrl = getM get urls
_ -> Nothing
hasOrigin :: IO Bool
-hasOrigin = do
+hasOrigin = catchDefaultIO False $ do
rs <- lines <$> readProcess "git" ["remote"]
return $ "origin" `elem` rs