[Change +? to +&, a better name
Neil Mitchell**20080805124946] {
hunk ./src/Web/Action.hs 50
-    ,"  Query: <tt>" +? pre ++ "<span id='error'>" +? post2 ++ "</span></tt><br/>"
+    ,"  Query: <tt>" +& pre ++ "<span id='error'>" +& post2 ++ "</span></tt><br/>"
hunk ./src/Web/Action.hs 52
-    ,"  Error: " +? drop 1 (dropWhile (/= ':') $ show err) ++ "<br/>"
+    ,"  Error: " +& drop 1 (dropWhile (/= ':') $ show err) ++ "<br/>"
hunk ./src/Web/Action.hs 103
-        url (TagHyperlink _ x) = Just $ "</a><a href='" +? urlItem ++ "'>" ++ showTagHTML x ++
-                                        "</a><a class='dull' href='" +? urlItem ++ "'>"
+        url (TagHyperlink _ x) = Just $ "</a><a href='" +& urlItem ++ "'>" ++ showTagHTML x ++
+                                        "</a><a class='dull' href='" +& urlItem ++ "'>"
hunk ./src/Web/Action.hs 114
-a +? b = a ++ escapeHTML b
+-- | Escape the second argument before appending
+(+&) :: String -> String -> String
+a +& b = a ++ escapeHTML b
hunk ./src/Web/Action.hs 138
-        g (TagHyperlink url x) = "<a href=\"" +? url ++ "\">" ++ showTagHTML x ++ "</a>"
+        g (TagHyperlink url x) = "<a href=\"" +& url ++ "\">" ++ showTagHTML x ++ "</a>"
}