summaryrefslogtreecommitdiff
path: root/src/Propellor/Protocol.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 15:05:15 -0400
committerJoey Hess2014-11-18 15:05:15 -0400
commitbad6a8c3e641894c900f195c23092a528853c904 (patch)
tree5fbae1c0afb97a2ecf41ffb68facd73f072a4536 /src/Propellor/Protocol.hs
parent38fc71077dd774fc4078993daacfd836bad55fdc (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 164f6db6..c5ebaab9 100644
--- a/src/Propellor/Protocol.hs
+++ b/src/Propellor/Protocol.hs
@@ -9,7 +9,7 @@ import Data.List
import Propellor
-data Stage = Ready | NeedGitClone | NeedRepoUrl | NeedPrivData
+data Stage = Ready | NeedGitClone | NeedRepoUrl | NeedPrivData | NeedGitPush
deriving (Read, Show, Eq)
type Marker = String
@@ -24,6 +24,9 @@ privDataMarker = "PRIVDATA "
repoUrlMarker :: String
repoUrlMarker = "REPOURL "
+gitPushMarker :: String
+gitPushMarker = "GITPUSH"
+
toMarked :: Marker -> String -> String
toMarked marker = intercalate "\n" . map (marker ++) . lines