add to request headers, don't overwrite

This commit is contained in:
Joey Hess 2019-08-03 11:15:08 -04:00
parent fc09a41ed1
commit 74e9e3ccf0
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -349,7 +349,7 @@ type HostUser = String
addLfsJsonHeaders :: Request -> Request
addLfsJsonHeaders r = r
{ requestHeaders =
{ requestHeaders = requestHeaders r ++
[ ("Accept", lfsjson)
, ("Content-Type", lfsjson)
]