summaryrefslogtreecommitdiff
path: root/src/Propellor/Protocol.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 13:59:50 -0400
committerJoey Hess2014-11-18 13:59:50 -0400
commit45f8ebf0ef0d152af3b3c77492e4a5e442e304b6 (patch)
tree646965dd40d62319fb1fbe5fbabd4bb3025964da /src/Propellor/Protocol.hs
parent9463963d855d6a19d423598f668b8627dd669a30 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Protocol.hs')
-rw-r--r--src/Propellor/Protocol.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Propellor/Protocol.hs b/src/Propellor/Protocol.hs
index 669f41b6..4dc7e6bb 100644
--- a/src/Propellor/Protocol.hs
+++ b/src/Propellor/Protocol.hs
@@ -9,7 +9,7 @@ import Data.List
import Propellor
-data BootStrapStatus = Ready | NeedGitClone
+data BootStrapStatus = Ready | NeedGitClone | RepoUrl
deriving (Read, Show, Eq)
type Marker = String
@@ -21,6 +21,9 @@ statusMarker = "STATUS"
privDataMarker :: String
privDataMarker = "PRIVDATA "
+repoUrlMarker :: String
+repoUrlMarker = "REPOURL "
+
toMarked :: Marker -> String -> String
toMarked marker = intercalate "\n" . map (marker ++) . lines