1 files changed, 1 insertions(+), 1 deletions(-)
M src/Links.hs
M src/Links.hs => src/Links.hs +1 -1
@@ 51,7 51,7 @@ extractMisc [] = []
extractEl path el@(Element (Name "details" _ _) _ childs) =
[Link (nodesText summary' $ nodesText childs "") "+" nullURI {
- uriFragment = '#':'.':intercalate "." (map show path)
+ uriFragment = '#':'.':intercalate "." (map show $ reverse path)
} | NodeElement summary@(Element (Name "summary" _ _) _ summary') <- childs]
extractEl path el@(Element _ _ children) =
extractElAttr el "href" ++