diff --git a/happstack-hsp.cabal b/happstack-hsp.cabal
--- a/happstack-hsp.cabal
+++ b/happstack-hsp.cabal
@@ -1,5 +1,5 @@
 Name:                happstack-hsp
-Version:             6.0.1
+Version:             6.1.0
 Synopsis:            Support for using HSP templates in Happstack
 Description:         Happstack is a web application framework. HSP is an XML templating solution. This package makes it easy to use HSP templates with Happstack.
 Homepage:            http://www.happstack.com/
diff --git a/src/HSP/ServerPartT.hs b/src/HSP/ServerPartT.hs
--- a/src/HSP/ServerPartT.hs
+++ b/src/HSP/ServerPartT.hs
@@ -1,6 +1,7 @@
+-- |This module provides, @instance 'XMLGenerator' ('ServerPartT' m)@
 {-# LANGUAGE MultiParamTypeClasses, TypeSynonymInstances, FlexibleInstances, TypeFamilies #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
-module HSP.ServerPartT where
+module HSP.ServerPartT () where
 
 import HSP
 import Control.Monad              (liftM)
@@ -48,17 +49,17 @@
 instance (Monad m) => HSX.EmbedAsAttr (ServerPartT m) Attribute where
     asAttr = return . (:[]) . SAttr 
 
-instance (Monad m) => HSX.EmbedAsAttr (ServerPartT m) (Attr String Char) where
+instance (Monad m, IsName n) => HSX.EmbedAsAttr (ServerPartT m) (Attr n Char) where
     asAttr (n := c)  = asAttr (n := [c])
 
-instance (Monad m) => HSX.EmbedAsAttr (ServerPartT m) (Attr String String) where
+instance (Monad m, IsName n) => HSX.EmbedAsAttr (ServerPartT m) (Attr n String) where
     asAttr (n := str)  = asAttr $ MkAttr (toName n, pAttrVal str)
 
-instance (Monad m) => HSX.EmbedAsAttr (ServerPartT m) (Attr String Bool) where
+instance (Monad m, IsName n) => HSX.EmbedAsAttr (ServerPartT m) (Attr n Bool) where
     asAttr (n := True)  = asAttr $ MkAttr (toName n, pAttrVal "true")
     asAttr (n := False) = asAttr $ MkAttr (toName n, pAttrVal "false")
 
-instance (Monad m) => HSX.EmbedAsAttr (ServerPartT m) (Attr String Int) where
+instance (Monad m, IsName n) => HSX.EmbedAsAttr (ServerPartT m) (Attr n Int) where
     asAttr (n := i)  = asAttr $ MkAttr (toName n, pAttrVal (show i))
 
 instance (Monad m, Functor m, IsName n) => (EmbedAsAttr (ServerPartT m) (Attr n TL.Text)) where