diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 15:05:15 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 15:05:15 -0400 |
| commit | bad6a8c3e641894c900f195c23092a528853c904 (patch) | |
| tree | 5fbae1c0afb97a2ecf41ffb68facd73f072a4536 /src/Propellor/Protocol.hs | |
| parent | 38fc71077dd774fc4078993daacfd836bad55fdc (diff) | |
propellor spin
Diffstat (limited to 'src/Propellor/Protocol.hs')
| -rw-r--r-- | src/Propellor/Protocol.hs | 5 |
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 |