[Move Web.Action to using the new Web.Text
Neil Mitchell**20080811221359] {
hunk ./src/Web/Action.hs 12
+import Web.Text
hunk ./src/Web/Action.hs 133
-
--- | Only append strings if neither one is empty
-(+?) :: String -> String -> String
-a +? b = if null a || null b then [] else a ++ b
-
--- | Escape the second argument before appending
-(+&) :: String -> String -> String
-a +& b = a ++ escapeHTML b
-
-(+%) = (+&) -- CGI query string escaping
-
-
-escapeHTML = concatMap f
-    where
-        f '\"' = """
-        f '<' = "&lt;"
-        f '>' = "&gt;"
-        f x = [x]
-
-
-showTagHTML = showTagHTMLWith (const Nothing)
-
-
-showTagHTMLWith :: (TagStr -> Maybe String) -> TagStr -> String
-showTagHTMLWith f x = g x
-    where
-        g x | isJust (f x) = fromJust $ f x
-        g (Str x) = escapeHTML x
-        g (Tags xs) = concatMap g xs
-        g (TagBold x) = "<b>" ++ showTagHTML x ++ "</b>"
-        g (TagUnderline x) = "<i>" ++ showTagHTML x ++ "</i>"
-        g (TagHyperlink url x) = "<a href=\"" +& url ++ "\">" ++ showTagHTML x ++ "</a>"
-        g (TagColor i x) = "<span class='c" ++ show i ++ "'>" ++ showTagHTML x ++ "</span>"
-
}