serve :: MonadSnap m => ByteString -> m ()
serve css = do
    modifyResponse $ setContentType "text/css; charset=utf-8"
    modifyResponse $ setContentLength (fromIntegral $ B.length css)
    writeBS css
serve :: MonadSnap m => ByteString -> m ()
serve css = do
    modifyResponse $ setContentType "text/css; charset=utf-8"
    modifyResponse $ setContentLength (fromIntegral $ B.length css)
    writeBS css
serve css = do
    modifyResponse $ setContentType "text/css; charset=utf-8"
    modifyResponse $ setContentLength (fromIntegral $ B.length css)
    writeBS css