happstack-hsp 6.0.1 → 6.1.0

raw patch · 2 files changed

+7/−6 lines, 2 files

Files

• happstack-hsp.cabal +1/−1
• src/HSP/ServerPartT.hs +6/−5

@@ -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/

@@ -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