put the correct MIME type on errors.js

Author: evancz

worker/src/Main.hs

@@ -32,7 +32,7 @@ main =
         [ ifTop $ status
         , path "repl" $ Repl.endpoint rArtifacts
         , path "compile" $ Compile.endpoint cArtifacts
-        , path "compile/errors.js" $ writeBS errorJS
+        , path "compile/errors.js" $ serveJavaScript errorJS
         , path "compile/deps-info.json" $ serveDepsInfo depsInfo
         , notFound
         ]
@@ -56,6 +56,12 @@ notFound =
       writeBuilder "Not Found"
 
 
+serveJavaScript :: BS.ByteString -> Snap ()
+serveJavaScript javascript =
+  do  modifyResponse $ setContentType "application/javascript"
+      writeBS javascript
+
+
 serveDepsInfo :: BS.ByteString -> Snap ()
 serveDepsInfo json =
   Cors.allow GET ["https://elm-lang.org"] $