fix a permalink related bug
This commit is contained in:
parent
2140b5fe0d
commit
32da0b640d
|
@ -311,7 +311,7 @@ genHtmlAction getPost getTemplate out = do
|
||||||
, "orgsource" .= T.pack (postUrl bp -<.> "org")
|
, "orgsource" .= T.pack (postUrl bp -<.> "org")
|
||||||
, "txtsource" .= T.pack (postUrl bp -<.> "txt")
|
, "txtsource" .= T.pack (postUrl bp -<.> "txt")
|
||||||
, "pdf" .= T.pack (postUrl bp -<.> "pdf")
|
, "pdf" .= T.pack (postUrl bp -<.> "pdf")
|
||||||
, "permalink" .= T.pack (toS origin <> postUrl bp)
|
, "permalink" .= T.pack (toS origin <> postUrl bp -<.> "html")
|
||||||
]
|
]
|
||||||
writeFile' out (toS htmlContent)
|
writeFile' out (toS htmlContent)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue