protocol is one line response, not multiline
The privdata is shown, so contains no literal newlines, so that's ok.
This commit is contained in:
parent
dccdf0c0f0
commit
781e35a333
|
@ -28,7 +28,7 @@ gitPushMarker :: String
|
||||||
gitPushMarker = "GITPUSH"
|
gitPushMarker = "GITPUSH"
|
||||||
|
|
||||||
toMarked :: Marker -> String -> String
|
toMarked :: Marker -> String -> String
|
||||||
toMarked marker = intercalate "\n" . map (marker ++) . lines
|
toMarked marker = ++
|
||||||
|
|
||||||
fromMarked :: Marker -> Marked -> Maybe String
|
fromMarked :: Marker -> Marked -> Maybe String
|
||||||
fromMarked marker s
|
fromMarked marker s
|
||||||
|
|
Loading…
Reference in New Issue