<% intoBody "short tutorial" -%> <%% import XMLTools (intoBody) %%> <%% import Text.RegexPR (gsubRegexPR) %%> <%% mkContItem :: (Int, String) -> String %%> <%% mkContItem (n, t) = "

" ++ atag ++ show n ++ ". " ++ t ++ "

\n" where atag = "" address = "short_tutorial/" ++ gsubRegexPR " " "_" t ++ ".xhtml" %%>

<% cont <- (fmap read $ readFile "short_tutorial/contents" :: IO [(Int, String)]) %>

I'm sorry. This page is under construction.

contents

<%= concatMap mkContItem cont %> <%-%>