| By | Chris Done |
| At | 2011-06-09 |
| Title | Set UTF-8 charset on raw output. |
| Description |
Edit file src/Amelie/Controller/Raw.hs 33188 → 33188
27 27 handle = do
28 28 pid <- (>>= readMay) . fmap (toString) <$> getParam "id"
29 29 case pid of
30 30 Nothing -> goHome
31 31 Just (pid :: Integer) -> do
- 32 modifyResponse $ setContentType "text/plain"
+ 32 modifyResponse $ setContentType "text/plain; charset=UTF-8"
33 33 paste <- model $ getPasteById (fromIntegral pid)
34 34 maybe goHome (outputText . fromStrict . pastePaste) paste
35 35 36 36 where goHome = redirect "/"
… … … …