1 files changed, 7 insertions, 1 deletions
diff --git a/src/Utils/Xhtml.hs b/src/Utils/Xhtml.hs
index 4efbead..41839ae 100644
--- a/src/Utils/Xhtml.hs
+++ b/src/Utils/Xhtml.hs
@@ -1,4 +1,7 @@
-module Utils.Xhtml (niceDashes) where
+module Utils.Xhtml ( niceDashes
+                   , uC) where
+
+import Text.XHtml
 
 -- Very simple atm.  Not easily extended to handle emdashes too.
 
@@ -7,3 +10,6 @@ niceDashes []   = []
 niceDashes (x:xs)
     | x == '-'  = "–" ++ niceDashes xs
     | otherwise = x : niceDashes xs
+
+uC   :: Char -> Html
+uC c = thespan ! [strAttr "style" "text-decoration: underline;"] << [c]