[Server jQuery code under own URL (caching does not work though)
Joachim Breitner <mail@joachim-breitner.de>**20100828102039
 Ignore-this: 4651a14318c02318a4ba218fcdc3d054
] hunk ./JQuery.hs 1
+{-# LANGUAGE OverloadedStrings #-}
hunk ./JQuery.hs 4
-jQueryCode :: String
+import Data.ByteString.Lazy.Char8
+
+jQueryCode :: ByteString
hunk ./JQuery.hsb 1
+{-# LANGUAGE OverloadedStrings #-}
hunk ./JQuery.hsb 4
-jQueryCode :: String
+import Data.ByteString.Lazy.Char8
+
+jQueryCode :: ByteString
hunk ./b18n-combined-cgi.hs 9
+import System.IO
hunk ./b18n-combined-cgi.hs 22
-	script ! [ thetype "text/javascript" ] << cdata jQueryCode
+	script ! [ thetype "text/javascript", src "?jquery" ] << noHtml
hunk ./b18n-combined-cgi.hs 159
-		   
hunk ./b18n-combined-cgi.hs 161
+    qs <- queryString
+    if qs == "jquery"
+     then jQueryMain
+     else formMain
+
+jQueryMain = do
+        setHeader "Content-type" "text/javascript"
+        setHeader "Expires" "Fri, 01 Jan 2100 00:00:00 +0100"
+        setHeader "Cache-control" "max-age=36000000" -- 1000 h
+        outputFPS $ jQueryCode
+    
+
+formMain = do
hunk ./b18n-combined.cabal 26
-                 xhtml, cgi, utf8-string
+                 xhtml, cgi, utf8-string, bytestring
hunk ./testcgi.py 9
-		self.cgi_info = ("","")
+                path = self.path
+                self.cgi_info = ("/",self.path[1:])