+ mergeTables m (x:xs) = let (langTag, pageName) = x
+ langName = fromMaybe langTag (M.lookup langTag m)
+ in
+ (langName, pageName) : mergeTables m xs
+
+ mkLangList :: [(LanguageName, PageName)] -> ListElement
+ mkLangList xs = ListElement Bullet (map mkLangLink xs)
+
+ mkLangLink :: (LanguageName, PageName) -> ListItem
+ mkLangLink (langName, pageName)
+ = [Right (PageLink (Just pageName) Nothing (Just langName))]
\ No newline at end of file