[Make http:// url's come out directly
Neil Mitchell <http://www.cs.york.ac.uk/~ndm/>**20051212172443] {
hunk ./src/Web/Main.hs 170
-showTags (Tag "a" x) = "<a href='?q=" ++ escape (showText x) ++ "'>" ++ showTags x ++ "</a>"
+showTags (Tag "a" x) = "<a href='" ++ url ++ "'>" ++ showTags x ++ "</a>"
+    where
+        url = if "http://" `isPrefixOf` txt then txt else "?q=" ++ escape txt
+        txt = showText x
+        
}