Minor fix in atom
This commit is contained in:
parent
56240984f3
commit
fcfd1559ca
@ -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@
|
||||
|
||||
@ -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,
|
||||
|
||||
Loading…
Reference in New Issue
Block a user