~alcinnz/rhapsode

aceb276d9fc9b01792fba2aafc38cfd11f87bfa4 — Adrian Cochrane 4 years ago b0e7b8c
Serve link.wav with correct MIMEtype.

I converted it to audio/vnd.wav but without updating the metadata
another check concluded eSpeak-NG wouldn't be able to play it.
1 files changed, 1 insertions(+), 1 deletions(-)

M src/Render.hs
M src/Render.hs => src/Render.hs +1 -1
@@ 128,7 128,7 @@ downloadAssets session mimes (StyleAssets _ assets) = do

-- variant of HURL fetchURL which includes about:link.wav & about:bullet-point.wav
fetchURL' _ _ (URI "about:" Nothing "link.wav" _ _) =
    return ("application/ogg", Right $ B.fromStrict $(embedFile "link.wav"))
    return ("audio/vnd.wav", Right $ B.fromStrict $(embedFile "link.wav"))
fetchURL' _ _ (URI "about:" Nothing "bulletpoint.wav" _ _) =
    return ("audio/vnd.wav", Right $ B.fromStrict $(embedFile "bulletpoint.wav"))
fetchURL' s m u = fetchURL s m u