Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- pageTemplate :: (EmbedAsChild I18N body) => String -> body -> I18N XML
- pageTemplate title body =
- defaultTemplate title ()
- <div>
- <% body %>
- <ul>
- <% mapM (\lang ->
- <li>
- <a [ ("href" :: String) := ("?_LANG="++ lang)]><% lang %></a>
- </li>)
- (["en", "en-GB", "jbo"] :: [String]) %>
- </ul>
- </div>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement