Minor fix in atom
This commit is contained in:
parent
56240984f3
commit
fcfd1559ca
@ -47,13 +47,13 @@ data AtomFeedEntry url = AtomFeedEntry
|
|||||||
, atomEntryContent :: Html ()
|
, atomEntryContent :: Html ()
|
||||||
}
|
}
|
||||||
|
|
||||||
xmlns :: AtomFeed url -> Html ()
|
xmlns :: Html ()
|
||||||
xmlns _ = preEscapedString "http://www.w3.org/2005/Atom"
|
xmlns = preEscapedString "http://www.w3.org/2005/Atom"
|
||||||
|
|
||||||
template :: AtomFeed url -> Hamlet url
|
template :: AtomFeed url -> Hamlet url
|
||||||
template arg = [$xhamlet|
|
template arg = [$xhamlet|
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
%feed!xmlns=$xmlns.arg$
|
%feed!xmlns=$xmlns$
|
||||||
%title $string.atomTitle.arg$
|
%title $string.atomTitle.arg$
|
||||||
%link!rel=self!href=@atomLinkSelf.arg@
|
%link!rel=self!href=@atomLinkSelf.arg@
|
||||||
%link!href=@atomLinkHome.arg@
|
%link!href=@atomLinkHome.arg@
|
||||||
|
|||||||
@ -32,7 +32,7 @@ library
|
|||||||
template-haskell >= 2.4 && < 2.5,
|
template-haskell >= 2.4 && < 2.5,
|
||||||
web-routes >= 0.22 && < 0.23,
|
web-routes >= 0.22 && < 0.23,
|
||||||
web-routes-quasi >= 0.5 && < 0.6,
|
web-routes-quasi >= 0.5 && < 0.6,
|
||||||
hamlet >= 0.3.1 && < 0.4,
|
hamlet >= 0.4.0 && < 0.5,
|
||||||
transformers >= 0.2 && < 0.3,
|
transformers >= 0.2 && < 0.3,
|
||||||
clientsession >= 0.4.0 && < 0.5,
|
clientsession >= 0.4.0 && < 0.5,
|
||||||
pureMD5 >= 1.1.0.0 && < 1.2,
|
pureMD5 >= 1.1.0.0 && < 1.2,
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user