unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-20 14:57:41 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #2968 from unisonweb/remove-open-access-control-header

Browse Source
This commit is contained in:
Arya Irani 2022-03-19 13:24:45 -04:00 committed by GitHub
commit acfa8ebf18
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
parser-typechecker/src/Unison/Server/Types.hs
View File

@ -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 =