Don't sanitize first function in exportList

There are 2 possibilities: either it is a function, in which case it
will already be sanitized by the callers, or it is exporting Text.Blaze,
in which case the sanitization was not needed (and since c645915, it
actually does the wrong thing)

Util/GenerateHtmlCombinators.hs

@@ -149,7 +149,7 @@ exportList :: String   -- ^ Module name.
 exportList _    []            = error "exportList without functions."
 exportList name (f:functions) = unlines $
     [ LINE $ "module " ++ name
-    , LINE $ "    ( " ++ sanitize f
+    , LINE $ "    ( " ++ f
     ] ++
     map (LINE . ("    , " ++)) functions ++
     [ LINE "    ) where"]