From b130fb0bd67c92ef1b9bf9b65f2633c117e69913 Mon Sep 17 00:00:00 2001 From: Adrian Cochrane Date: Thu, 9 Apr 2020 17:07:57 +1200 Subject: [PATCH] update Accepts header for CSS assets. --- src/Render.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/Render.hs b/src/Render.hs index 7f5ad29..6ee3350 100644 --- a/src/Render.hs +++ b/src/Render.hs @@ -220,10 +220,7 @@ c_renderDoc c_session c_page rewriteURLs = do css' <- retreiveStyles session $ css page qCSS <- if rewriteURLs then do assets <- downloadAssets session [ - -- FIXME couldn't find MIMEtypes for all the audio formats - "audio/vnd.wav", "audio/x-aiff", "audio/basic", "audio/8svx", "audio/x-8svx", - "audio/x-voc", "application/x-pagerecall", "audio/x-caf", "audio/flac", - "audio/x-oga", "application/x-ogg", "application/ogg" + "audio/vnd.wav" ] $ resolve' (StyleAssets ["cue-before", "cue-after", "cue"] []) css' let URIRewriter _ qCSS' = resolve' (URIRewriter (M.fromList assets) Style.queryableStyleSheet) css' return qCSS' -- 2.30.2