account for icon types

This commit is contained in:
Lucy Cifferello
2021-09-06 14:02:59 -06:00
committed by Keagan McClelland
parent 06a0fb0d96
commit 9fe0bba851
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