Minor fix in atom

This commit is contained in:
Michael Snoyman 2010-07-04 01:00:50 +03:00
parent 56240984f3
commit fcfd1559ca
2 changed files with 4 additions and 4 deletions

View File

@ -47,13 +47,13 @@ data AtomFeedEntry url = AtomFeedEntry
, atomEntryContent :: Html ()
}
xmlns :: AtomFeed url -> Html ()
xmlns _ = preEscapedString "http://www.w3.org/2005/Atom"
xmlns :: Html ()
xmlns = preEscapedString "http://www.w3.org/2005/Atom"
template :: AtomFeed url -> Hamlet url
template arg = [$xhamlet|
<?xml version="1.0" encoding="utf-8"?>
%feed!xmlns=$xmlns.arg$
%feed!xmlns=$xmlns$
%title $string.atomTitle.arg$
%link!rel=self!href=@atomLinkSelf.arg@
%link!href=@atomLinkHome.arg@

View File

@ -32,7 +32,7 @@ library
template-haskell >= 2.4 && < 2.5,
web-routes >= 0.22 && < 0.23,
web-routes-quasi >= 0.5 && < 0.6,
hamlet >= 0.3.1 && < 0.4,
hamlet >= 0.4.0 && < 0.5,
transformers >= 0.2 && < 0.3,
clientsession >= 0.4.0 && < 0.5,
pureMD5 >= 1.1.0.0 && < 1.2,