account for icon types

This commit is contained in:
Lucy Cifferello
2021-09-06 14:02:59 -06:00
committed by Keagan McClelland
parent eca229116b
commit 72bc7e01ae
4 changed files with 43 additions and 3 deletions

View File

@@ -118,6 +118,7 @@ makeApplication foundation = do
dynamicCorsResourcePolicy :: Request -> Maybe CorsResourcePolicy
dynamicCorsResourcePolicy req = Just . policy . lookup hOrigin $ requestHeaders req
$logInfo $ show $ requestHeaders req
where
policy o = simpleCorsResourcePolicy
{ corsOrigins = (\o' -> ([o'], True)) <$> o