{-# OPTIONS_GHC -F -pgmFtrhsx #-} -- | HTML.hs -- A module which contain static html. module HTML ( errorPageTemplate, fullPageTemplate, pagesTemplate, threadTemplate, omittedTemplate, opPostTemplate, replyTemplate ) where import Board import HSP -- RAGE!!! -- http://hackage.haskell.org/packages/archive/old-time/1.0.0.1/doc/html/src/System-Time.html#ClockTime -- > FIXME: This is arguably wrong, since we can't -- > get the current timezone without being in the IO monad. import System.IO.Unsafe import System.Time import Data.Time import System.Locale ( defaultTimeLocale ) import Data.List.Utils import Text.Regex.Posix -- Some vars. title = "Гнездовье Жабрача" errorPageTemplate :: String -> HSP XML errorPageTemplate err =
<% pcdata ">>" %> | <% postTemplate "reply" shortLinks post %>