~alcinnz/rhapsode

b130fb0bd67c92ef1b9bf9b65f2633c117e69913 — Adrian Cochrane 4 years ago 4296814
update Accepts header for CSS assets.
1 files changed, 1 insertions(+), 4 deletions(-)

M src/Render.hs
M src/Render.hs => src/Render.hs +1 -4
@@ 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'