mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-20 14:57:41 +03:00
Merge pull request #2968 from unisonweb/remove-open-access-control-header
This commit is contained in:
commit
acfa8ebf18
@ -50,8 +50,7 @@ import Unison.Util.Pretty (Width (..))
|
||||
|
||||
type APIHeaders x =
|
||||
Headers
|
||||
'[ Header "Access-Control-Allow-Origin" String,
|
||||
Header "Cache-Control" String
|
||||
'[ Header "Cache-Control" String
|
||||
]
|
||||
x
|
||||
|
||||
@ -261,7 +260,7 @@ mayDefaultWidth :: Maybe Width -> Width
|
||||
mayDefaultWidth = fromMaybe defaultWidth
|
||||
|
||||
addHeaders :: v -> APIHeaders v
|
||||
addHeaders = addHeader "*" . addHeader "public"
|
||||
addHeaders = addHeader "public"
|
||||
|
||||
branchToUnisonHash :: Branch.Branch m -> UnisonHash
|
||||
branchToUnisonHash b =
|
||||
|
Loading…
Reference in New Issue
Block a user