diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 13:59:50 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 13:59:50 -0400 |
| commit | 45f8ebf0ef0d152af3b3c77492e4a5e442e304b6 (patch) | |
| tree | 646965dd40d62319fb1fbe5fbabd4bb3025964da /src/Propellor/Protocol.hs | |
| parent | 9463963d855d6a19d423598f668b8627dd669a30 (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 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 |