Text passed to fillText is not adequately escaped when rendered as javascript

[danielrolls]

To reproduce:

1. run the following

#!/usr/bin/env stack
{- stack --resolver lts-11.22 runghc
         --package static-canvas-0.2.0.3
-}
{-# LANGUAGE OverloadedStrings #-}

module Main where

import Graphics.Static

main :: IO ()
main = writeCanvasDoc "out.html" 600 400 $ fillText "some text\\" 150 100

2. Open out.html in a browser
3. Open dev tools and you should see an error
4. Look at the generated javascript. The string 'some text' has no closing quote since it has been escaped.

[jeffreyrosenbluth]

Thanks for posting the issue. I'm not sure when I will be able to get to this. If you would like to submit a pull request it would be appreciated