implicitsnap now uses GZip.

Haskell-Things · Sep 3, 2012 · 41f1a76 · 41f1a76
1 parent a124bd3
commit 41f1a76
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/implicitsnap.hs b/implicitsnap.hs
@@ -42,7 +42,7 @@ site = route
 
 renderHandler :: Snap ()
 renderHandler = method GET $ withCompression $ do
-
+	modifyResponse $ setContentType "application/x-javascript"
 	request <- getRequest
 	case (rqParam "source" request, rqParam "callback" request)  of
 		(Just [source], Just [callback]) -> do