jsResponse :: String -> Snap ()
jsResponse str = do
    modifyResponse $ addHeader "Content-Type" "text/plain; charset=UTF-8"
    modifyResponse $ addHeader "Access-Control-Allow-Origin" "*"
    writeLBS $ convertString str
jsResponse :: String -> Snap ()
jsResponse str = do
    modifyResponse $ addHeader "Content-Type" "text/plain; charset=UTF-8"
    modifyResponse $ addHeader "Access-Control-Allow-Origin" "*"
    writeLBS $ convertString str
jsResponse str = do
    modifyResponse $ addHeader "Content-Type" "text/plain; charset=UTF-8"
    modifyResponse $ addHeader "Access-Control-Allow-Origin" "*"
    writeLBS $ convertString str